Nybörjare på makron Exel

Trädvy Permalänk
Medlem
Registrerad
Sep 2005

Nybörjare på makron Exel

Hej försöker göra en loop där den ska börja titta på A1 om den är satt ska den göra en sak och gå vidare till A2 osv.
Lyckas tyvärr inget bra.

Sub test2() Dim i As Single Dim S As Single i = 1 If Len("1, i") > 0 Then S = 1 Else S = 0 End If Do While S = 1 range("2, i") = "ok" i = i + 1 If Len("1, i+1") > 0 Then S = 1 Range("H34") = S Else S = 0 End If Loop i = i + 1 End Sub

Trädvy Permalänk
Moderator
Registrerad
Aug 2007

Vad är det som inte lyckas?

Du vet att du kan sätta villkoret för en loop på raden med Loop också. På så vis kan du skippa att ha den första iterationen för sig.

Använd gilla för att markera nyttiga inlägg!

Trädvy Permalänk
Medlem
Plats
Göteborg
Registrerad
Maj 2003

Använd Option Explicit först för att tvinga varudeklaration, vilket dock inte var ditt problem.

Mitt råd är att stega i koden och se vad varje sak gör.
T.ex varför fungerar inte denna rad som du vill?
If Len("1, i") > 0 Then

kolla vad len("1, i") resulterar i för värde? Och se att den alltid oavsett vad du har för data i excelsheeten returnerar 4. Då inser man snabbt att len("1, i"), kollar strängens värde och du får använda dig av annan kod som len(cells(1,i)) osv...

[Core i7-3930K med 32GB ram, 2*256GB SSD] & [Core i7 3770K med 16 GB RAM, 256GB SSD] som tillsammans har ett [HD 5850 1GB] och 3st 24".