Új hozzászólás Aktív témák

• #41268 RAiN91 őstag

  Új Válasz 2019-07-01 11:35:51 #41268

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  RAiN91

  őstag

  Sziasztok

  Egy kis segítséget szeretnék kérni.

  i egy változó, 44-47ig, ha 47-ig eljutott, akkor a következő mindig a 44, és így megy körkörösen.

  Erre ezt írtam, de mivel megadtam, hogy i kezdő értéke 44, ezért mindig is az lesz az első, és nem ugrik tovább.

  Private Sub Worksheet_Calculate()
Dim i As Long

i = 44
If Cells(9, 7) <> Cells(9, i) Then
Cells(9, i + 1) = Cells(9, 7)
i = i + 1
end if

If i = 47 Then i = 44
End Sub

  Hogy lehetne másképp megoldani? For-Next ciklussal sem tudtam megoldani, mert csak akkor szeretném, ha i ugorjon egyet, ha a feltétel teljesül, és ha NEXT-et IF függvényen belül rakom, akkor hibát jelez:

  For i = 44 To 47
If Cells(9, 7) <> Cells(9, i) Then
Cells(9, i + 1) = Cells(9, 7)
Next
End If

  Köszönöm előre is a segítséget!

Új hozzászólás Aktív témák