Adrese teslim veri servisi

[POLARIS]

İyi akşamlar,
Verilerin istenilen sayfa ve hücrelerden alınıp belirtilen sayfa ve hücrelere teslim edilip kaydedilmesi.Bu tür bir çalışma yapılabilinirmi?
Teşekkür eder iyi çalışmalar dilerim.

 

[uzmanamele]

merhaba

bunun gibi bişey işinizi görür mü?

Sub adreseteslim()
cıkıs = Range("c3").Text
varıs = Range("c5").Text
sayfa = Range("c4").Text
Range(cıkıs).Copy Sheets(sayfa).Range(varıs)
End Sub

 

[POLARIS]

merhaba

bunun gibi bişey işinizi görür mü?

Sub adreseteslim()
cıkıs = Range("c3").Text
varıs = Range("c5").Text
sayfa = Range("c4").Text
Range(cıkıs).Copy Sheets(sayfa).Range(varıs)
End Sub

Günaydın,
Yapmaya çalıştığım macrolara baktım ve.:kafa:
Sayın uzmanamele çok teşekkür ederim.Gecenin o saatinde bukadar güzel basit,anlaşılır bir çözüm sağlamanız çok hoş.Harika insanlarsınız.
Tekrar teşekkür eder iyi çalışmalar dilerim.
Hoşçakalınız.:hey: