Konverter tekst til tal ved brug at tekstbokse i en userform

Hejsa


Jan

Jeg kan ikke umiddelbart få det til at virke. Måske jeg laver en fejl i forhold til det du mener. Så her er den fulde kode til kommandoknappen. Den kommer med fejlen type mismatch ved linjen  Set ws = Sheets("Bets"). Kun de sidste to linjer skal konverteres til tal

Private Sub cmd_next_Click()

Dim ws As Worksheets 'Ark variabel
    Dim rCell As Range 'Celle variabel
    ' Her under tildeles placering til variablene
    Set ws = Sheets("Bets")
    Set rCell = Range("Data_start")

Dim targetrow As Integer

targetrow = Sheets("Engine").Range("b3").Value + 1

Sheets("Bets").Range("Data_start").Offset(targetrow, 0).Value = combo_day
Sheets("Bets").Range("Data_start").Offset(targetrow, 1).Value = combo_month

Sheets("Bets").Range("Data_start").Offset(targetrow, 2).Value = txt_start & ":" & txt_minut

If ob_pre = True Then

Sheets("Bets").Range("Data_start").Offset(targetrow, 3).Value = "Pre"

Else

Sheets("Bets").Range("Data_start").Offset(targetrow, 4).Value = "Live"

End If

Sheets("Bets").Range("Data_start").Offset(targetrow, 5).Value = combo_sport
Sheets("Bets").Range("Data_start").Offset(targetrow, 6).Value = lbox_liga
Sheets("Bets").Range("Data_start").Offset(targetrow, 7).Value = lbox_home & " " & "-" & " " & lbox_away
Sheets("Bets").Range("Data_start").Offset(targetrow, 8).Value = txt_udfald
Sheets("Bets").Range("Data_start").Offset(targetrow, 9).Value = Format(txt_odds, "#,00")
Sheets("Bets").Range("Data_start").Offset(targetrow, 10).Value = Format(txt_indskud, "#,00")

End Sub

Prøv om følgende kode ikke virker elles upload fil til dropbox eller lignende

Option Explicit

Private Sub cmd_next_Click()

    Dim ws As Worksheets 'Ark variabel
    Dim rCell As Range 'Celle variabel
    Dim targetrow As Integer
    ' Her under tildeles placering til variablene
    Set ws = Sheets("Bets")
    Set rCell = Range("Data_start")

    targetrow = Sheets("Engine").Range("b3").Value + 1
   
    rCell.Offset(targetrow, 0).Value = combo_day
    rCell.Offset(targetrow, 1).Value = combo_month
   
    rCell.Offset(targetrow, 2).Value = txt_start & ":" & txt_minut
   
    If ob_pre = True Then
   
        rCell.Offset(targetrow, 3).Value = "Pre"
       
    Else
       
        rCell.Offset(targetrow, 4).Value = "Live"
   
    End If
   
    rCell.Offset(targetrow, 5).Value = combo_sport
    rCell.Offset(targetrow, 6).Value = lbox_liga
    rCell.Offset(targetrow, 7).Value = lbox_home & " " & "-" & " " & lbox_away
    rCell.Offset(targetrow, 8).Value = txt_udfald
    rCell.Offset(targetrow, 9).Value = Format(txt_odds, "#,00")
    rCell.Offset(targetrow, 10).Value = Format(txt_indskud, "#,00")

End Sub

https://drive.google.com/open?id=1vzrbFoXwnx4yBThYVqi8g1T1sqsRhUn8

Her er arket. Den laver samme fejl som sidst.

Tusind tak fordi du gider at bruge tid på at hjælpe mig :)

Hej

Har lige renset lidt ud og måtte kopiere det over i en ny fil, da den gamle fejlede, men nu burde den virke.

https://1drv.ms/x/s!AmlqgsyjsAq5hZdaGesIyvi5IC0CVw

Jan

lige en lille rettelse

https://1drv.ms/x/s!AmlqgsyjsAq5hZdcVR3Y5KM7MWiezA

Jan

Det virker. Jeg skal nok lige bruge lidt tid til at forstå sammensætningen, så jeg også trækker lidt læring med herfra.

Mange tak for din tid. Det har jeg rodet med i en hel del timer uden held :)