Nested Loop sorusu

[kucukon]

günaydın arkadaşlar,

Basit bir döngü yazdım neden çalışmadığını anlayamıyorum:
x = 6
y = 6
h = 101
k = 29
Do While (Counter < 1)
If Cells(h, k).Value = 0 Then
Do While (x < 101)
Cells(x, "AC").Value = Cells(y, "H").Value
x = x + 1
y = y + 1
Counter = Counter + 1
Loop
Else
k = k + 1
Loop

burada: Do While (if ((Do while) Else )) sistemi neden çalışmıyor olabilir?

verdiği hata Do while olmadan Loop kullanamazsın ya da If olmadan Else kullanamazsın gibi şeyler henüz 1 haftadır makro çalışmaları yaptığım için muhtemelen kodun kullanımı ile ilgili bir format hatası yapıyorum.

yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[hamitcan]

Bence küçük bir dosya ile ne yapmak istediğinizi anlatırsanız, size yardımcı olabilecek arkadaşlar çıkacaktır.

 

[Muzaffer Ali]

End if satırı yok

Else
 k = k + 1
[COLOR="Red"]end if[/COLOR]
 Loop

 

[kucukon]

Merhaba arkadaşlar,
Daha açıklayıcı olabilmesi için:

Yalnızca ilk sayfa olan HAFTALIK_SEVKİYAT sayfasındaki H kolonu doldurulup ONAY tuşuna basmasıyla macronun geri kalanını halletmesini istiyorum.

Problemim SEVKİYAT_BİLGİLERİ sayfasına bilgilerin aktarılması konusunda. Geri kalanını yazabildim.

örnek olması için ilk sevkiyatı belirleyen kolonu doldurabilen makroyu da yazabildim fakat yeni sevkiyatlar oldukça makronun sağa doğru kayarak eski bilgileri silmemesi gerekli. Bu kısımda If kullanarak öncelikle ilk kullanılmamış kolonu bularak burada işlem yapmak istedim Nested loop sorunum da burada başladı.

yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[kucukon]

Sorunu hallettim teşekkür ederim dalgalikur.