veri ayıklayıp taşıma

[takoo]

mrb arkadşlar.göndermiş olduğum dosyada "konut durumu" "boş" olan satırları seçip başka bir çalışma kitabına göndermem lazım,yardımcı olur musunuz? ,iyi çalışmalar.

 

[takoo]

mrb arkadşlar.göndermiş olduğum dosyada "adresi" sütununda "çiğli" olan satırları seçip başka bir çalışma kitabına göndermem lazım,yardımcı olur musunuz? ,iyi çalışmalar.
özürdilerim eklentiyi unutmuşum. bu şekilde yüzlerce kaydı ayıklamam

 

[Ali]

Adresleri ile birlikte aktarılacak çalışma kitabınızın adı Veri olarak kabul ettim.

İki çalışma kitabınızda açıkken verilerinizin bulunduğu çalışma kitabının modülüne aşağıdaki kodları yazıp çalıştırın. Veri adlo çalışma kitabının Sayfa1 adlı çalışma sayfasına aktaracaktır.

Verilerinize göre Range("C1:C100") aralığını değiştirirsiniz.

Sub aktar()
Dim b
b = 1
x = InputBox("Aktarılacak adresi giriniz")
For Each aralik In Worksheets("Sayfa1").Range("C1:C100")
If aralik = x Then
    b = b + 1
    Workbooks("Veri").Worksheets("Sayfa1").Cells(b, 1) = aralik.Offset(0, -2)
    Workbooks("Veri").Worksheets("Sayfa1").Cells(b, 2) = aralik.Offset(0, -1)
    Workbooks("Veri").Worksheets("Sayfa1").Cells(b, 3) = aralik
End If
Next
MsgBox "Veriler aktarıldı"
End Sub

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
For a = 1 To 100
If Cells(a, 3) = "çiğli" Then Sayfa2.[a100].End(3).Offset(1) = "çiğli"
Next
End Sub

 

[Ali]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
For a = 1 To 100
If Cells(a, 3) = "çiğli" Then Sayfa2.[a100].End(3).Offset(1) = "çiğli"
Next
End Sub

Şöyle bir durum var Seyit Bey.Çiğli olan tüm satırı başka bir sayfaya değilde,başka bir çalışma kitabına aktarılmasını istiyor sanırım.

 

[Seyit Tiken]

Ali bey doğru söylüyorsunuz. Ben Çalışma Sayfası olarak anlamışım. Şöyle bir şeyde olabilir : Soruyu soran arkadaşımız, Çalışma Sayfasını kasdetmiş olabilir de, yani...

 

[Ali]

Ali bey doğru söylüyorsunuz. Ben Çalışma Sayfası olarak anlamışım. Şöyle bir şeyde olabilir : Soruyu soran arkadaşımız, Çalışma Sayfasını kasdetmiş olabilir de, yani...

Oda olabilir tabiki.Farklı çözümler olmuş oldu, çeşitlilik her zaman iyidir,farklı alternatifler çıkıyor.Saygılar.

 

[takoo]

ilginize çok sevindim,çok teşekkür ederim,iyigünler iyi çalışmalar