İki Sayfa Arası Veri Aktrımı

[emiroglu07]

Ü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

 

[dEdE]

Merhaba,
Dener misiniz?

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

 

[emiroglu07]

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

 

[emiroglu07]

Üstadlar bu makroyu revize edebilecek biri varmıdır acaba

 

[emiroglu07]

üstadlar konu ile ilgili destek vercek biri varmıdır acaba

 

[NADİR YILDIZ]

Merhaba
ilk sorunuzda sorduğunuzu sayın dedenin kodları yapıyor

 

[emiroglu07]

İ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

 

[emiroglu07]

Ustadlar acaba konu hakkinda destegini esirgemeyecek bir ustad varmidir 2 gundur cozemedim

 

[mühendisberke]

evrak no ve tarihi ters geliyor makroda hemen düzeltiyorum

 

[emiroglu07]

berkebey valla çöze bilirseniz çok duacınız olurm

 

[emiroglu07]

evrak no ve tarihi ters geliyor makroda hemen düzeltiyorum

Berke bey bakabildinizmi acaba

 

[mühendisberke]

deneme.xlsm dosyasını indir - download

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

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

 

[emiroglu07]

https://r.resimlink.com/EzDvoybQ.jpg

üstadım şu resimdeki işlem için peki bir makro olurşurulabilinirmi ?

 

[emiroglu07]

aslında en başından beri verileri luca sayfasındaki mantık şeklinde aktarmaktı