• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Şartlı Satır Silme

S

sarman61

Katılım
4 Eylül 2007
Mesajlar
85
Excel Vers. ve Dili
eXCELL 2007
Merhaba

Şöyle birşey yapmak istiyorum forumda aramama rağmen bu tarz bir uygulama bulamadım. Şimdi "B" Sütünunda bazı bilgiler var. Bu bilgileri 2. sayfaya aktarıcam. Aktarma işlemi yapılırken bilgileri süzecek. Belirlediğim kelimenin geçtiği satırı silecek. Diğer belirlediğim kelimenin geçtiği satırınıda Sayfa2 deki "B" Sütununa aktaracak. Diğer satırları "A" Sütununa aktaracak.


Yalnız şöyle birşey var. Ben bu işin nasıl yapıldığını öğrenmek istiyorum. Hemde çok. Açıkcası burada kod yazan arkadaşlarımı imreniyorum.

Şöyle
B Sütunundaki bilgileri al Sayfa 2 de A Sütununa kopyala
Sayfa 2 deki
A Sütunundaki bilgilerin içinde şu kelimelerin geçtiği satırları sil.
A Sütunundaki şu kelimenin geçtiği satırları B Sütununa kes yapıştır.

Bana bu durumu anlatacak bir arkadaşımız var mı? Şimdiden teşekkür ederim.
 
sarman61' Alıntı:
Merhaba

Şöyle birşey yapmak istiyorum forumda aramama rağmen bu tarz bir uygulama bulamadım. Şimdi "B" Sütünunda bazı bilgiler var. Bu bilgileri 2. sayfaya aktarıcam. Aktarma işlemi yapılırken bilgileri süzecek. Belirlediğim kelimenin geçtiği satırı silecek. Diğer belirlediğim kelimenin geçtiği satırınıda Sayfa2 deki "B" Sütununa aktaracak. Diğer satırları "A" Sütununa aktaracak.


Yalnız şöyle birşey var. Ben bu işin nasıl yapıldığını öğrenmek istiyorum. Hemde çok. Açıkcası burada kod yazan arkadaşlarımı imreniyorum.

Şöyle
B Sütunundaki bilgileri al Sayfa 2 de A Sütununa kopyala
Sayfa 2 deki
A Sütunundaki bilgilerin içinde şu kelimelerin geçtiği satırları sil.
A Sütunundaki şu kelimenin geçtiği satırları B Sütununa kes yapıştır.

Bana bu durumu anlatacak bir arkadaşımız var mı? Şimdiden teşekkür ederim.
Genişletmek için tıkla ...
Merhaba,
Bu şekilde işi uzatmış olursunuz. İsteğiniz şu şekilde de olabilir. Sayfa1'in a sütunundaki istediğiniz kelimeleri makro ile kopyalayıp Sayfa2'nin b sütununa doğrudan aktarabilirsiniz.
 
Aslında evet uzatmış oluyorum ama bu bilgiler biraz karışık bu şekilde düzene sokmuş olmak istedim.

Şöyle bir kod var ama ne demek istediğini anlamadığım için kendime göre uyarlayamadım.

Sub KOŞULLU_SİL()
For X = [A65536].End(3).Row To 1 Step -1
If Mid(Cells(X, 1), 12, 1) <> 0 And UCase(Cells(X, 4)) = "L" Then Rows(X).Delete
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Bu kod korhan hocamın kodu. Bunu da belirteyim. :)
 
Son düzenleme:
bunun için kod yazmana gerek yok süz ile halledebilirsin; süz de özel butonunda içerir seçeneği ile b ye aktaracağın içinde geçen kelimeyi yaz sonra kes de sayfa 2 ye yapıştır. silmek istediğinide içermez diyerek kesersin sayfa 3 atarsın ordanda silersin ana listeni sıralatırsın
 
Selamlar,

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklarsanız yardım almanız kolaylaşacakır.
 
Selamlar,

Örnek dosyanızda veriler 4 sıra atlayarak düzenli bir şekilde listelenmiş. Diğer verilerinizde bu şekilde düzenlimi?
 
Yok bazen 4 sıra olmuyor 3 sıra olabiliyor. O yüzden içinde geçen kelimelerden bu işi yapmak istedim.
 
arkadaşım sorunu bu şekilde çözebilirisin. örnek dosyayı gönderiyorum
 

Ekli dosyalar

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Uygulanan kod; (Boş bir modüle uygulayınız.)

Kod: 
Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Satır As Long, X As Long, Y As Byte, BUL As Range
 
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
 
    Satır = 1
 
    S2.Range("A:B").ClearContents
 
    For X = 1 To S1.Range("A65536").End(3).Row
        For Y = X To X + 4
            If InStr(1, S1.Cells(Y, 1), "Yayın Yılı") = 0 And _
            InStr(1, S1.Cells(Y, 1), "Kağıt") = 0 And _
            InStr(1, S1.Cells(Y, 1), "Dili") = 0 And _
            InStr(1, S1.Cells(Y, 1), "sayfa") = 0 Then
                S2.Cells(Satır, 1) = S1.Cells(Y, 1)
                Set BUL = S1.Range("A" & X & ":A65536").Find("Liste Fiyatı")
                    If Not BUL Is Nothing Then
                        S2.Cells(Satır, 2) = S1.Cells(BUL.Row, 1)
                        Satır = Satır + 1
                        GoTo Devam
                    End If
            End If
        Next
Devam:
    X = BUL.Row
    Next
 
    S2.Select
 
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 

Ekli dosyalar

Korhan hocam eline sağlık işime yaradı. Bunu nasıl yaptığını öğrenmem için ne yapmalıyım. Bu kodu geliştirmek istesem hangi kaynaklardan faydalanmalıyım. İlgin için şimdiden teşekkür ederim.
 
Selamlar,

Eğer makro yazmayı öğrenmek istiyorsanız bol bol çalışmalısınız. Sitemizdeki örnek kodları incelemelisiniz. Excel Dersanesi bölümündeki döngülerle ilgili dersleri detaylıca inceleyip uygulamalısınız. Sitemizin kitap bölümündeki kitaplardan edinerek makrolarla ilgili başlangıç bilgilerini temelinden almalısınız. Ortadan başlarsanız çok bocalarsınız.

Başlangıç olarak aşağıdaki linkleri inceleyiniz.

http://www.excel.web.tr/showthread.php?t=4299
http://www.excel.web.tr/showthread.php?t=54042
http://www.excel.web.tr/showthread.php?t=5325
http://www.excel.web.tr/showthread.php?t=4228
http://www.excel.web.tr/showthread.php?t=3621
http://www.excel.web.tr/showthread.php?t=50593
http://www.excel.web.tr/showthread.php?t=50591
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst