koşula bağlı olarak diğer sayfaya satır kopyalama

Cevapla
obsesyonur
Mesajlar: 4
Kayıt: Çrş May 08, 2024 1:26 am
Adınız: martian
Soyadınız: black

koşula bağlı olarak diğer sayfaya satır kopyalama

Mesaj gönderen obsesyonur »

İyi geceler,Sayfa1 deki veri girişlerinde istenilen koşul sağlanmış ise koşul sağlanan satırı Sayfa 2'ye Kopyalamak istiyorum.Örnek Belge içinde yapılmak istenilen olayı daha ayrıntılı biçimde anlattım.Yardımcı olabilecek herkese şimdiden teşekkür ederim.
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
SNNAY
Mesajlar: 29
Kayıt: Prş Mar 21, 2024 11:31 am
Lokasyon: istanbul
Meslek: Oto Yedek Parça Satış Elemanı
Adınız: Sinan
Soyadınız: Aykaç

Re: koşula bağlı olarak diğer sayfaya satır kopyalama

Mesaj gönderen SNNAY »

Deneyiniz.

Kod: Tümünü seç

Sub Kopyala()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim j As Integer
    Dim copyRow As Boolean
    
    Set ws1 = ThisWorkbook.Sheets("Sayfa1")
    Set ws2 = ThisWorkbook.Sheets("Sayfa2")
    
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1
    
    For i = 2 To lastRow1
        copyRow = True
        For j = 2 To 8 ' B sütunundan H sütununa kadar olan hücreleri kontrol et
            If IsEmpty(ws1.Cells(i, j)) Then
                copyRow = False
                Exit For
            End If
        Next j
        
        If copyRow Then
            ws1.Rows(i).Copy Destination:=ws2.Rows(lastRow2)
            lastRow2 = lastRow2 + 1
        End If
    Next i
    
    MsgBox "Kopyalama işlemi tamamlandı."
End Sub

Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
obsesyonur
Mesajlar: 4
Kayıt: Çrş May 08, 2024 1:26 am
Adınız: martian
Soyadınız: black

Re: koşula bağlı olarak diğer sayfaya satır kopyalama

Mesaj gönderen obsesyonur »

Sayın Sinan Aykaç önerdiğiniz makro kodu güzel çalışıyor,emekleriniz için teşekkür ederim.İyi çalışmalar.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj