Çözüldü tek seferlik döngü

[Sezerkaratas]

For s = 9 To 19
If Not Sheets("satış").Cells(s, 6) = "" Then
Set m = sh.Range("c1:A" & sonsat).Find(Sheets("satış").Cells(s, 6).Value, , xlValues, xlWhole)
 k.Offset(0, 6).Value = k.Offset(0, 6).Value - 1
 Sheets("SATIŞ KAYDI").Range("b17") = Sheets("SATIŞ").Cells(s, 6)

merhabalar böyle bir kodum var ben istiyorum ki Sheets("SATIŞ KAYDI").Range("b17") = Sheets("SATIŞ").Cells(s, 6) buraya her geldiğinde hücre bir aşağı insin
mesela s nin ilk döngüsünde b17 ye yazdı 2. döngüsündeki değeri b 18 e 3. döngüsünde b 19 a yazsın istiyorum lütfen yardım eder misiniz ?

 

[Sezerkaratas]

yardım eder misiniz lütfen

 

[çıtır]

Sorunuzu örnek excel dosyası ekleyerek sorarsanız,daha kısa sürede doğru cevaplar alabilirsiniz. Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz: https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız.

 

[Sezerkaratas]

Dosya çok karışık şuan o yüzden yüklemem kafa karıştırır . İstediğim tek şey s döngüsünün her saydığını stok sayfasında b17 den başlayıp alt alta yazması

 

[çıtır]

Sonucunu kontrol etmediğim soruya cevap yazmam.Konuyu anlayan ve sonucunu öngeren bir arkadaş umarım cevaplandırır.Üzgünüm.

 

[Sezerkaratas]

Teşekür ederim

 

[Korhan Ayhan]

"For" ile başlayan satırın üstüne aşağıdaki kodu ekleyin.

Say = 17

Kendi kod satırınızıda aşağıdaki gibi düzenleyin.

Sheets("SATIŞ KAYDI").Range("b" & Say) = Sheets("SATIŞ").Cells(s, 6)
Say = Say + 1

 

[Sezerkaratas]

Gerçekten çok teşekür ederim ????