BağYapıştır

[g_demir]

iyi günler arkadaşlar excelinde yardımlarıyla aşagıdaki gibi bir kod oluşturdum


Sub UstYazi
Sheets("ÜstYazı").Select
Range("A43").Select
ActiveCell.FormulaR1C1 = "='1'!R[-21]C[3]"
EndSub

benim istegim kırmızıyla yazan yanı kopyalanan sayfa her defasında aktif olan saydadan kopyalasın acaba bu mumkunmudur?
inş derdimi anlata bilmişimdir
şimdiden teşekürler

 

[uzmanamele]

merhaba
aşağıdaki gibi denermisiniz
ActiveCell.FormulaR1C1 = "=R[-21]C[3]"

 

[g_demir]

malesef olmuyor dırek aynı sayfadakı d22 alıyor

 

[uzmanamele]

....her defasında aktif olan saydadan kopyalasın ...

merhaba
aktif olan sayfa o an görünen sayfa olduğuna göre aynı sayfadan alması doğal.
kodları başka bir sayfa aktifken çalıştırarak denermisiniz.

 

[g_demir]

Sayda "1" de bilgilerim var Sayfa " ÜstYazı " Bir takım yazılar
sayfa bırde ıken Butona bastıgımda "1" deki bazı verileri " ÜstYazı " sayfasındaki belirledigim yerlere gelmesını istiyorum
ısın acıkcası biraz acemıyım anlatımdada sıkıntılar varsa kusura bakmayın

 

[uzmanamele]

merhaba
şöyle birşey olabilirmi

Sub Makro1()
ActiveSheet.Range("D22").Copy
Sheets("ÜstYazı").Select
Range("A43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ÜstYazı").Range("A1").Select
End Sub

 

[Ayhan Ercan]

Aktif olan sayfanın "a1" hücresindeki veriyi "Üstyazı" sayfasının "a1" hücresine kopyalar..

ActiveSheet.Range("a1").Copy Sheets("Üstyazı").[a1]

 

[g_demir]

Sayın uzmanamele ve Ayhan Ercan
yardımlarınız için çok teşekkür ediyorum gercekten cok işime yaradı
ellerinize ve bilginize sağlık

 

[Ayhan Ercan]

Sayın uzmanamele ve Ayhan Ercan
yardımlarınız için çok teşekkür ediyorum gercekten cok işime yaradı
ellerinize ve bilginize sağlık

sağolun, iyi çalışmalar...