Nybörjare på makron Exel

2014-03-10 13:13

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

Rapportera Redigera

Citera flera Citera

2014-03-10 15:43

Permalänk

giplet

Hedersmedlem ★

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.

Visa signatur

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

Rapportera Redigera

Citera flera Citera

2014-03-10 19:04

Permalänk

bud_bundy

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...

Visa signatur

[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".

Rapportera Redigera

Citera flera Citera

Nybörjare på makron Exel

Nybörjare på makron Exel

Externa nyheter

Spelnyheter från FZ