Probalom az adatrogzitest egyszerusiteni, hogy ne kelljen kezzel masolgatni az adatokat egyik munkalaprol a masikra. Miert mondja azt, hogy "Boucle sans Do" (loop without do), mikor ott a do? Herman segits. Es ne azzal, hogy szidod a microsoft.
Sub collage()
Dim y, row, x As Integer
y = 17
x = 2
row = 6
Do
If Worksheets("résultats").Cells(1, y + 1) = Worksheets("résultats").Cells(1, y) Then
Worksheets("résultats").Cells(1, y) = Worksheets("niv1").Cells(x, row)
x = x + 1
y = y + 1
Else
row = row + 1
Loop Until Worksheets("résultats").Cells(1, y) = 0
End Sub
Ajánlott bejegyzések:
A bejegyzés trackback címe:
Kommentek:
A hozzászólások a vonatkozó jogszabályok értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a Felhasználási feltételekben és az adatvédelmi tájékoztatóban.