• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İki Sayfa Arası Veri Aktrımı

E

emiroglu07

Katılım
4 Mayıs 2013
Mesajlar
86
Excel Vers. ve Dili
office 2010
Üstadlar hepinize kolay gelsin hayırlı günleriniz olsun
elimdeki excel dosyasının liste sayfasındaki sarı ile işaretli stunların sizrve sayfasındaki sarı ile işaretli stunlarına aktarmasını bir türlü sağlayamadım
konu hakkında yardımcı olursanız çok sevinirim şimdiden yardımlarınız için teşekkür ederim

İndir deneme

Dosyayı indir deneme
dosya.co
 
Merhaba,
Dener misiniz?
C++: 
Sub Aktar()
    Set S1 = Sheets("LİSTE")
    Set s2 = Sheets("ZİRVE")
    ss = S1.Cells(Rows.Count, "A").End(3).Row
    S1.Range("C3:C" & ss).Copy s2.Range("B2")
    S1.Range("H3:H" & ss).Copy s2.Range("C2")
    S1.Range("B3:B" & ss).Copy s2.Range("D2")
    S1.Range("A3:a" & ss).Copy s2.Range("E2")
End Sub
 
Sub Zirve()

Dim S1 As Worksheet, i As Long, sat As Long, j As Byte

Set S1 = Sheets("LİSTE")

Application.ScreenUpdating = False
Sheets("ZİRVE").Select
Range("A2:H" & Rows.Count).ClearContents

sat = 2
For i = 3 To S1.Cells(Rows.Count, "A").End(xlUp).Row

S1.Cells(i, "A").Resize(1, 5).Copy
Cells(sat, "B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

Cells(sat, "A") = S1.Cells(i, "H")
Cells(sat, "H") = S1.Cells(i, "F")
Cells(sat, "G") = 0

sat = sat + 1
For j = 9 To 20
If S1.Cells(i, j) > 0 Then
Cells(sat, "A") = S1.Cells(2, j)
Cells(sat, "G") = S1.Cells(i, j)
Cells(sat, "B") = S1.Cells(i, "A")
Cells(sat, "C") = S1.Cells(i, "B")
Cells(sat, "D") = S1.Cells(i, "C")
Cells(sat, "E") = S1.Cells(i, "D")
Cells(sat, "F") = S1.Cells(i, "E")
sat = sat + 1
End If

If S1.Cells(i, j) < 0 Then
Cells(sat, "A") = S1.Cells(2, j)
Cells(sat, "H") = S1.Cells(i, j) * -1
Cells(sat, "B") = S1.Cells(i, "A")
Cells(sat, "C") = S1.Cells(i, "B")
Cells(sat, "D") = S1.Cells(i, "C")
Cells(sat, "E") = S1.Cells(i, "D")
Cells(sat, "F") = S1.Cells(i, "E")
sat = sat + 1
End If

Next j

Next i

Range("A1").Select
Application.CutCopyMode = False
End Sub

üstad elimdeki bı koda nasıl revize edebiliriz
 
Merhaba
ilk sorunuzda sorduğunuzu sayın dedenin kodları yapıyor
 

İndir deneme

Dosyayı indir deneme
dosya.co
Nadir üstad elimde zaten olan bir makro var üstte paylaşmış olduğum
bu makro zaten aktarım yapıyor ama dosyada da bakarsanız aktarım yaparken sarı ile işaretli stunların aynısına değil farklı yerlere kaydediyor
bayağı uğraştım bu kodun matematiğini çozemedim o yüzden bu konu hakkında yardım istemiştim
İlgilendiğiniz için teşekkür ederim
 
Ustadlar acaba konu hakkinda destegini esirgemeyecek bir ustad varmidir 2 gundur cozemedim
 

deneme.xlsm dosyasını indir - download

deneme.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle
s2.dosya.tc s2.dosya.tc

makro 1'i direk aynı düğmeye atadım listenin sayfasından çalıştırabilirsin.
fiş no yok listede ondan boş.
liste sayfasına eklenmesi bulunması lazım ama yok
 
aslında en başından beri verileri luca sayfasındaki mantık şeklinde aktarmaktı
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst