Farklı Sekmelere Veri Almak

[Sonarex33]

Merhaba değerli hocalarım.
takibini yaptığım dosyalarımda haczi tekin edilmiş olan dosyalarımın farklı bir sekmede kaydını tutmak istiyorum.
Yol gösterirseniz sevinirim.

 

[YUSUF44]

Aşağıdaki işlemleri sırayla yapınız:

Öncelikle dosyanıza yeni bir sayfa ekleyin ve adını TERKİN olarak değiştirin.
TERKİN sayfasının ilk satırına GENEL LİSTE sayfasının başlık satırını (2. satır) kopyalayın.

Eğer mevcut sayfanızdaki değerleri belirttiğiniz şekilde aktarmak istiyorsanız aşağıdaki kodları bir modüle kopyalayıp çalıştırınız. Kodlar sayfadaki tüm satırları ayrı ayrı kontrol eder ve E sütunu HACİZ TERKİN olanları TERKİN sayfasına aktarır:

Sub aktar()
Set s1 = Sheets("GENEL LİSTE")
Set s2 = Sheets("TERKİN")

son = s1.Cells(Rows.Count, "B").End(3).Row

For i = 3 To son
    If s1.Cells(i, "E") = "HACİZ TERKİN" Then
        yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
        s1.Rows(i).Copy s2.Cells(yeni, "A")
    End If
Next

For j = son To 3 Step -1
    If s1.Cells(j, "E") = "HACİZ TERKİN" Then s1.Rows(j).Delete
Next

End Sub

Eğer belirttiğiniz gibi dosyaya veri girdikçe HACİZ TERKİN yazdığınız anda o satırın taşınmasını istiyorsanız aşağıdaki kodları GENEL LİSTE sayfasının kod bölümüne yapıştırınız. Bu kodlar E sütununa HACİZ TERKİN yazıldığında o satırı TERKİN sayfasına taşır ve GENEL LİSTE sayfasından diler:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:E50000]) Is Nothing Then Exit Sub

If Target = "HACİZ TERKİN" Then
    Application.EnableEvents = False
    yeni = Sheets("TERKİN").Cells(Rows.Count, "B").End(3).Row + 1
    Rows(Target.Row).Copy Sheets("TERKİN").Cells(yeni, "A")
    Rows(Target.Row).Delete
    Application.EnableEvents = True
End If
End Sub

 

[Sonarex33]

Aşağıdaki işlemleri sırayla yapınız:

Öncelikle dosyanıza yeni bir sayfa ekleyin ve adını TERKİN olarak değiştirin.
TERKİN sayfasının ilk satırına GENEL LİSTE sayfasının başlık satırını (2. satır) kopyalayın.

Eğer mevcut sayfanızdaki değerleri belirttiğiniz şekilde aktarmak istiyorsanız aşağıdaki kodları bir modüle kopyalayıp çalıştırınız. Kodlar sayfadaki tüm satırları ayrı ayrı kontrol eder ve E sütunu HACİZ TERKİN olanları TERKİN sayfasına aktarır:

Sub aktar()
Set s1 = Sheets("GENEL LİSTE")
Set s2 = Sheets("TERKİN")

son = s1.Cells(Rows.Count, "B").End(3).Row

For i = 3 To son
    If s1.Cells(i, "E") = "HACİZ TERKİN" Then
        yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
        s1.Rows(i).Copy s2.Cells(yeni, "A")
    End If
Next

For j = son To 3 Step -1
    If s1.Cells(j, "E") = "HACİZ TERKİN" Then s1.Rows(j).Delete
Next

End Sub

Eğer belirttiğiniz gibi dosyaya veri girdikçe HACİZ TERKİN yazdığınız anda o satırın taşınmasını istiyorsanız aşağıdaki kodları GENEL LİSTE sayfasının kod bölümüne yapıştırınız. Bu kodlar E sütununa HACİZ TERKİN yazıldığında o satırı TERKİN sayfasına taşır ve GENEL LİSTE sayfasından diler:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:E50000]) Is Nothing Then Exit Sub

If Target = "HACİZ TERKİN" Then
    Application.EnableEvents = False
    yeni = Sheets("TERKİN").Cells(Rows.Count, "B").End(3).Row + 1
    Rows(Target.Row).Copy Sheets("TERKİN").Cells(yeni, "A")
    Rows(Target.Row).Delete
    Application.EnableEvents = True
End If
End Sub

sayın yusuf44 ilginiz için tşk ederim.
excelde yeni olduğum için soruyorum lütfen yalnış anlamayın kodları modüle koplama hiç yapmadım. lütfen tarif edermisiniz. öğrenmek istiyorum

 

[YUSUF44]

Dosyanız açıkken Alt+F11 yapın ya da sayfa sekmesine sağ tıklayıp Kod görüntüle deyin
Açılan sayfa, o "sayfanın kod bölümü" olarak belirttiğim sayfadır. Yani ikinci kodu bu kısma yapıştırabilirsiniz.
Insert menüsünden Module'yi seçin
Şimdi açılan sayfa ise modül sayfasıdır, ilk kodu buraya yapıştırabilirsiniz.

Not: 2. seçenekte E sütununa veri girildiğinde kodlar otomatik çalışıp aktarma yapıldığından, diğer sütunlara da veri girilecekse önce diğer sütunlara veri girin ki aktarma olduktan sonra diğer sayfaya gidip veri girmek zorunda kalmayasınız.