aktarmada son satır yerine bir satır silip üzerine yazıyor

[sdegirmenci]

Değerli Hocalarım merhaba;
Ekteki dosyamda "ÇIKIŞ" sayfasına aktarmak için "Kilerden çıkar" düğmesini tıkladığımda çıkışı yapılan malzemeyi daha önce yazılan bir malzemeyi silerek üzerine yazıyor.Saatlerdir uğraşıyorum ama sebebini anlayamadım.Şu anda "ÇIKIŞ" Sayfası 93.satırda Ürünü aktarıyorum,en son satıra atıyor ama satır sayısı yine 93. Bir ürünü sliyor üzerine yazıyor.Yardımcı olursanız sevinirm

 

[Orion1]

ilgili satırı aşağıdaki kodla değiştiriniz.

sOn = Sheets("ÇKŞ").Cells(65536, "B").End(xlUp).Row + 1

 

[sdegirmenci]

Hocam ilginize teşekkür ederim, dediğinizi yaptım ama hata veriyor

 

[Orion1]

Hocam ilginize teşekkür ederim, dediğinizi yaptım ama hata veriyor

Evet gözümden kaçmış.
Aşağıdaki kodu kullanın hata vermeyecek olacak.

sOn = ÇKŞ.Cells(65536, "B").End(xlUp).Row + 1

 

[sdegirmenci]

Hocam süpersiniz;
Bunun için akşam 5 ten beri uğraşıyorum nafile, Çok teşekkür ederim .Bilginize sağlık.
Hayırlı geceler diliyorum

 

[Orion1]

Hocam süpersiniz;
Bunun için akşam 5 ten beri uğraşıyorum nafile, Çok teşekkür ederim .Bilginize sağlık.
Hayırlı geceler diliyorum

Rica ederim.
O sizin süperliğiniz.