- Katılım
- 7 Ağustos 2019
- Mesajlar
- 106
- Excel Vers. ve Dili
- İngilizce
Kod:
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 ?