sayfalar arası veri aktarımı ile ilgili

[maed2312]

Değerli Arkadaşlar;

ekteki excelde 1. sayfadaki veriler tutar kısımları doldurulursa ikinci sayfada 1.sıradan başlayarak dizilecekler.tutar kısmı yazılmayan banka ismi ikinci sayfada görülmeyecek.

şimdiden teşekkür ederim...

 

[Merhum İdris SERDAR]

Dosyanız ekte.

 

[Levent Menteşoğlu]

Aşağıdaki kodu 2.sayfada bir butona bağlayarak çalıştırın.

Sub aktar()
Set s1 = Sheets("1")
Set s2 = Sheets("2")
s2.[c2:d65536].ClearContents
For a = 2 To s1.[c65536].End(3).Row
If s1.Cells(a, "d") <> 0 Then
c = c + 1
s2.Cells(c + 1, "c") = s1.Cells(a, "c")
s2.Cells(c + 1, "d") = s1.Cells(a, "d")
End If
Next
End Sub

 

[maed2312]

arkadaşlar tek kelime ile harikasınız...

 

[maed2312]

arkadaşlar dediğiniz işlemleri anladım ama kendi sayfamda uygulayamadım.yardımcı olursanız çok sevinirim.

 

[Merhum İdris SERDAR]

Anlayabildiğim kadarı ile yapılmış dosyanız ekte.

 

[a.akyurek]

Değerli Arkadaşlar;

ekteki excelde 1. sayfadaki veriler tutar kısımları doldurulursa ikinci sayfada 1.sıradan başlayarak dizilecekler.tutar kısmı yazılmayan banka ismi ikinci sayfada görülmeyecek.

şimdiden teşekkür ederim...

Sayfa 2...

B1:

=COUNTIF('1'!D219,">0")

B3, control+shift+enter:

=IF(ROWS($B$3:B3)<=$B$1,SMALL(IF(ISNUMBER('1'!$D$2:$D$19),ROW('1'!$D$2:$D$19)-ROW('1'!$D$2)+1),ROWS($B$3:B3)),"")

ve aşa kopyala.

C3, sağa sonra aşa kopyala:

=IF(N($B3),INDEX('1'!C$2:C$19,$B3),"")

 

[maed2312]

değerli yurttas;

yaptığınız formül çok güzel oldum.ama vez.dağ. sayfasında veznedarın ismini yada tutarı sildiğim zaman mns sayfasında veznedarın adı silinmiyor.bunu nasıl giderebiliriz.

 

[Merhum İdris SERDAR]

değerli yurttas;

yaptığınız formül çok güzel oldum.ama vez.dağ. sayfasında veznedarın ismini yada tutarı sildiğim zaman mns sayfasında veznedarın adı silinmiyor.bunu nasıl giderebiliriz.

Dosyanız ekte.

 

[424242]

Merhaba

Bu formülleri excelde yazdığım zaman hata veriyor. Nereye yazmam gerekli umarım çok saçma bir soru değildir.Belkide bu sorunu çözsem çok sorunumu çözeceğim.Şimdiden teşekkürler