Herkese merhaba. Daha yeni kullanmaya başladım bu Exceli. Ben SAYFA1 deki A sütununu SAYFA2 deki A sütununa döngüsel olarak sonsuza eşitlemek istiyorum. Sayfa1 de A1,A2,A3,... Sayfa iki de de aynı şekilde yazsın istiyorum.Şimdiden teşekkürler...
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Eşitleme
- Konbuyu başlatan sipahi149
- Başlangıç tarihi
İ
İhsan Tank
Misafir
merhaba
formül ile yapmak isterseniz
Sayfa2 A1 hücresine eşittir işareti koyun sonra sayfa1 A1 hücresine tıklayın ve aşağıya doğru çoğaltın
kod ile yapmak isterseniz
Sayfa1'in kod bölümüne kopyalarak deneyiniz
Kod:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A1048576")) Is Nothing Then Exit Sub
Dim ts
For ts = 1 To Cells(1048576, "A").End(xlUp).Row
Sheets("Sayfa2").Cells(ts, "A") = Cells(ts, "A")
Next
End Sub
İ
İhsan Tank
Misafir
Gönderdiğiniz makro çok işime yaradı fakat basit kullanım için biraz zor birşey,, kayıt sırasında makro ile kayıt yapmak lazım. Tam olarak sayfa2 A1 hücresine =SAYFA1!A:A formulünü yazıp, hücrenin sağ alt tarafından aşağı doğru çekince formülü sıralı uyguluyor fakat boş olan bölümlere 0 yazıyor. Bunu düzeltmek için ne yapmam gerekir?
İ
İhsan Tank
Misafir
formülle bunu engellemek dosyanızı daha fazla kasabilir.
illa istiyorum derseniz bir örnek dosya ekleyin. dosyanızı düzenleyip föndereyim
