Liste hazırlama yardım!!!

[silka]

Arkdaşlar Ekte göndermiş olduğum dosyada yaklaşık 500 satır bulunmakta ben aralarından istediklerimi x ile işaretleyip sayfa 2 ye bu işaretlediklerimi kopyalamak ve sayfa 1'den de bu işaretli satırları silmek istiyorum yardımcı olabilecek varsa çok sevinirim. gerçi bi kod buldum ama o da işe yaramadı

Yardımlarınızı bekliyorum

 

[dEdE]

Merhaba, Aşağıdaki kodu kullanın.

Sub sayfayaAktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

s2.Cells.ClearContents
For i = 2 To s1.[L65536].End(3).Row
    If Cells(i, "L").Value = "x" Then
        ss = s2.[a65536].End(3).Row + 1
        s2.Rows(ss).Value = s1.Rows(i).Value
        Cells(i, "L").Value = ""
    End If
Next
End Sub

 

[silka]

üstadım çok güzel yapmışsın eline sağlık ama aktardıktan sonra sayfa 1 deki o verilen silinmesini de istiyorum bunun için ne yapmam gerekir

 

[dEdE]

Merhaba,

Cells(i, "L").Value = ""

satırını aşağıdaki satırla değiştirin.

 Rows(i).Delete

 

[silka]

peki hocam başka bişey daha sorabilirmiyim aktaracağımız verileri masaüstünde yeni bir çalışma kitabı açıp onun içine atabilirmiyiz. bu konuda da yardımcı olabilirmisiniz. Yani Sayfa 2'ye değilde masa üstünde karar diye bir xls dosyası açıp onun içine

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

DİKKAT:
- Orjinal dosyanızın yedeğini almadan kodu çalıştırmayınız.
- Koddaki dosya yolunu kendinize göre değiştirmelisiniz.

 

[silka]

Hocam çok teşekkür ederim ellerine kollarına sağlık. Ya bunları nerden öğrendiniz veya önerebileceğiniz bir kitap varmı bu sitedekilerden çok detaylı olanını

 

[dEdE]

Ya bunları nerden öğrendiniz veya önerebileceğiniz bir kitap varmı bu sitedekilerden çok detaylı olanını

Merhaba,
Bunların tümünü buradan öğrendim sayılır. Sitede tanıtılan kitaplar da dahil, kitap konusunda bilgim yok. Daha bir iki saat önce find komutunu buradan öğrendim.
Burada sorulan sorulara yanıt bulmaya çalışırım. Verilen yanıtları inceler farklı çözüm yollarını öğrenmeye çalışırım. Bazen bir başka kullanıcının birkaç dakikada verdiği yanıt için ben birkaç saat uğraşırım ama böylece öğrenmiş olurum.
Malum "Her yiğidin bir yoğurt yiyişi vardır." derler. Bizde yiğitlik kalmadı ama yoğurt yemeye devam.
Hoşça kalın.

 

[silka]

Hocam bugün yaptığın dosyayı denedimde x ile seçtiklerim tek seferde almıyor 3 er 3 er alıyor yani butona 5,6 kere tıklamam gerekiyor buna da bi bakabilirmisin

 

[dEdE]

Merhaba,

Haklısınız, Kontrol etmemiştim.
Yeni dosyanız ilişikte.
Hoşça kalın.

 

[silka]

teşekkürler

 

[dEdE]

Rica ederim.
Gğle güle kullanın.