veri aktarma

[aydgur]

Satış sayfamdaki A2 den R 80 e kadar olan bilgileri STOKLAR sayfasına ilk boş satırdan itibaren aktarmasını istiyorum.Yardımcı olacaklara şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Stoklar sayfasında aktarılacak başlangıç sütunu A sütunumudur?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("stoklar")
say = WorksheetFunction.CountA(s1.[a:a]) + 1
s1.Range("A" & say & ":R" & say + 78) = Range("A2:R80").Value
End Sub

yada

Sub aktar()
Set s1 = Sheets("stoklar")
say = WorksheetFunction.CountA(s1.[a:a]) + 1
Range("A2:R80").Copy s1.Range("A" & say & ":R" & say + 78)
End Sub

 

[hhalil]

Sayın leventm,
Satış sayfasındaki bilgilerin aktarıldıktan sonra silinmesi mümkünmüdür?

 

[Levent Menteşoğlu]

Sayın leventm,
Satış sayfasındaki bilgilerin aktarıldıktan sonra silinmesi mümkünmüdür?

Kodun sonuna aşağıdaki satırı ilave edin.

range("a2:r80").clearcontents

 

[hhalil]

Çok teşekkürler,
Bilginin masa tenisindeki gibi anında geri dönmesi çok güzel.
İyi hafta sonları

 

[aydgur]

Kusıura bakmayın anca foruma girebildim.yukarıdaki makroda A2:R80 bölümü yerine eğer değer varsa kopyala denilebilirmi ?