hücredeki veriyi tüm sayfalardaki aynı hücreye taşıma

[kahramang1]

Merhaba arkadaşlar. elimde bir excel çalıma kitabı var. bu kitap 36 sayfadan oluşuyor. adı "10" olan sayfanın D22 hücresine bir formül yazdım. Amacım bu formülü diğer 35 sayfanın hepsinin d22 hücresine de yazdırmak. Tek tek gidip kopyala, yapıştır yapmak istemiyorum. Bu konuda yardımcı olursanız sevinirim.
Kolay gelsin.

 

[çıtır]

Sub formulyaz()
Dim Sayfa As Worksheet
For Each Sayfa In Worksheets
Sayfa.Range("D22").formula = "=Formülünüzü buraya yazınız"
Next Sayfa
End Sub

 

[kahramang1]

Maalesef hata verdi. Dosya ekledim. Dosyanın "1" nolu sayfasının D24 hücresine yazdım. bu formül 36 adet sayfanın D22 hücresine ayrı ayrı kopyalanacak.

 

[çıtır]

Sub formulyaz()
Dim Sayfa As Worksheet
For Each Sayfa In Worksheets
Sayfa.Range("D22").FormulaLocal = "=D23&""-""&E21&Eğer(g21>0;""-""&G21& "" TL PARA ÜSTÜ "";"""")"
Next Sayfa
End Sub

 

[kahramang1]

İlginiz ve emeğiniz için çok teşekkürler. Gayet güzel olmuş. Kolay gelsin.

 

[çıtır]

İlginiz ve emeğiniz için çok teşekkürler. Gayet güzel olmuş. Kolay gelsin.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[mustafakoker]

Merhaba arkadaşlar. elimde bir excel çalıma kitabı var. bu kitap 36 sayfadan oluşuyor. adı "10" olan sayfanın D22 hücresine bir formül yazdım. Amacım bu formülü diğer 35 sayfanın hepsinin d22 hücresine de yazdırmak. Tek tek gidip kopyala, yapıştır yapmak istemiyorum. Bu konuda yardımcı olursanız sevinirim.
Kolay gelsin.

Alternatif formülsüz olarak
örneğin 1.sayfanın d5 hücresine birşey yazacaksınız
diğer tüm sayları Shift ile seçin (shifte basılı tutun ve tüm sayfaları işaretleyin)

sonra yazmak istediğiniz hücreye veriyi girin enterlayın
diğer sayfalarda aynı yere yazılmış olacaktır.