Teke düşürerek aktarma

[Ahmet Sami]

Arkadaşlar, sizden istediğim yardım. D sütununda bulunan ve GİDER olarak belirtilen veriler kıyas alınarak, E sütununda E3 ten başlayan İŞİN ADI verilerinin KASA DURUM sayfasındaki A25:A44 ve D2544 sütünlarına teke düşürerek aktarmasını istiyorum. Yani A25:A44 aralığı dolunca D25 ten başlayacak D44 e kadar aktaracak, yardımlarınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.
Not : Sayfa adı olarak görülen "GELİR-GİDER"'in kod indisi Sayfa1. Örnek dosyanızda.
Dolayısıyla Sheets("GELİR-GİDER").cells(i,"D") olarak değil, doğrudan Sayfa1.cells(i,"D") olarak kullandım.
diğer sayfada Sayfa2 olarak görülüyordu örnek dosyanızda.
Siz gerçek dosyanızda GELİR-GİDER sayfasının kod indisi ne ise onu kullanın.

Sub Tek()
'Microsoft Scriptin Runtime Referanslardan seçilmelidir
'Eğer dim coll as new collection diye başlanırsa referansa gerek yok
    Dim coll As New Collection
    Dim i As Long
    Dim kol As Integer
    Dim j As Integer
    
    Sayfa2.Range("A25:A44,D25:D44").ClearContents
    
    On Error Resume Next
    
    For i = 3 To Sayfa1.Cells(Rows.Count, "A").End(3).Row
        If Sayfa1.Cells(i, "D") = "GİDER" Then _
            coll.Add Sayfa1.Cells(i, "E").Value, Cells(i, "E").Value
    Next i
    On Error GoTo 0
    
    j = 25
    kol = 1
    
    For i = 1 To coll.Count
        Sayfa2.Cells(j, kol) = coll(i)
        j = j + 1
        If j > 44 Then
            j = 25
            kol = 4
        End If
    Next i

    MsgBox "İşlem Tamamlandı...." & Environ("UserName")
    
End Sub

 

[Ahmet Sami]

Necdet bey çok teşekkür ederim emeğinize sağlık

 

[Ahmet Sami]

Necdet bey özür dilerim. Her aktarmada yenilemesi lazım idi yani bazı verileri silmem gerekebiliyor ama aktar dediğim zaman orayı silip tekrar yeniden aktarmıyor yani sildiğim veri aktardığım yerde kalıyor yineleme yapmıyor bu konuda yardımcı olabilir misin.

 

[Necdet]

Merhaba.
Açıklamanızı anlamadım, örnek dosya üzerinde hücre adı vs vererek açıklarsanız, iyi olur.

 

[Ahmet Sami]

Dosyada yeni bir giriş yaptığım zaman aktar yapıyorum ve aktarma işlemi sorunsuz yapılıyor. Ancak yeni bir giriş yaptığım zaman aktar dediğim zaman yine aktarıyor ve sorun yok. Yeni girdiğim veri yanlış ise siliyorum ve aktar diyorum ama GELİR-GİDER sayfasından sildiğim halde aktar dediğim zaman KASA DURUM sayfasından silmiyor.
Necdet bey dosya ekleyemedim nedenini ise bilemedim. O yüzden tekrar yazmak zorunda kaldım kusuruma bakmayın.

 

[Necdet]

Merhaba,

Ben KASA-DURUM sayfasında silme işlemini özellikle yazmadım ki siz de bir silme kodunu oraya ekleyin diye.
ilk mesajdaki kodlarda silme işlemini de ekledim.
Sizin de göreceğiniz gibi basit bir kod parçası.