kopyalama

[aydgur]

SATIŞ sayfasındaki A2:R80 arasındaki bilgileri , STOKLAR sayfasındaki Asütunundaki ilk boş hücreden itibaren kopyalamayı nasıl bir makro ile çözebilirim ? Sakın nekadar basit demeyin 51 yaşındayım...

 

[Mahmut Kök]

Örnek dosya ekleseydiniz daha iyi olurdu; ama aşağıdaki gibi deneyebilirsiniz. Ben deneyemedim, hata verirse örnek dosyanızı eklerseniz, gerekeni yapalım.

set s1=sheeets("SATIŞ")
set s2=sheets ("STOKLAR")
 
SAT=S2.range("a65536").end(3).row+1
 
set alan1=s1.range("a2:r80")
set alan2=s2.range("a" & sat & ":r" & sat+78)
 
alan2.value=alan1.value

 

[Necdet]

Merhaba,

Bilene basit gelir tabi Sayın aydgur , ama benim için değil, hala otomatikleşemedim bu tür konularda.

Public Sub Aktar()
    SonSatır = Sheets("STOKLAR").[A65536].End(3).Row + 1
    Sheets("SATIŞ").Range("A2:R80").Copy Sheets("STOKLAR").Range("A" & SonSatır)
End Sub