İstenilen sırada veri almak

[poRTfoxtr]

2 tane sayfam var 1. sayfadakı 4. sutundakı 2. 5. 8.... satırlardakı boyle gıden butun verılerı
dıger calısma sayfadakı (baska sayfa degıl altta acılan sekme sayfa) 6. sutun 1. satır 8. satır 15.satırlara gondermek ıstıyorum

yanı ozet olarak
1. sayfada her ne zaman
4. sutun 2. satıra bırsey yazılsa
dıger sayfadakı 6. sutun 1. satırda aynı sey yazacak

aynı sekılde
D5 dekı verı dıger sayfada F8 de aynı sey yazacak
ve boyle asagıya dogru gıdecek

Yardımlarınız ıcın sımdıden cok tesekkurler

 

[Ömer BARAN]

Örnek dosyanızı eklerseniz çözüm bulunur bence.

 

[Testereci]

Sayfa2 F1 hücresine = yazdıktan sonra sayfa1 e gidip d2 hücresine tıklayınız. =Sayfa1!D2 otomatik olarak yazılır böylece sayfa1 D2'ye girilen bilgi, sayfa2 F1'e sürekli olarak taşınmış olur.

 

[poRTfoxtr]

dosyayı eklıyorum
benım cok ısıme yarıyacak eger bulursak yoksa el ıle tek tek referans vermek zorunda kalcam

arkadaslara tesekkurler

 

[Muhammet Okumuş]

Merhaba,
Kodu deneyiniz.

Sub Aktar()
Application.ScreenUpdating = False
son = Cells(Rows.Count, "D").End(3).Row
x = Int((son + 1) / 3)
For i = 1 To x
a = i * 3 - 1
b = i * 7 - 6
Sheets("Sayfa2").Cells(b, 6) = "=Sayfa1!D" & a
Next
End Sub

 

[poRTfoxtr]

Merhaba,
Kodu deneyiniz.

cok ısıme yaradı saolasın