Çözüldü süzülen veriyi kopyalama

doganc0' Alıntı:

Bu kod, E sütunundaki dolu hücreleri belirler ve BD sütunundaki ilgili hücreleri kopyalar.
Sub FiltreyiKopyala()
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim lastRow As Long
Dim copyRange As Range
Dim cell As Range
Dim destRow As Long

' Sayfalarınızı tanımlayın
Set wsSource = Sheets("çalışma")
Set wsDest = Sheets("günekleme")

' Hedef sayfadaki A sütununu temizle
wsDest.Range("A1:A15000").ClearContents

' E sütunundaki son dolu satırı bul
lastRow = wsSource.Cells(wsSource.Rows.Count, "E").End(xlUp).Row

' Kopyalanacak hücre aralığını başlat
destRow = 1

' E sütunundaki her hücreyi kontrol et
For Each cell In wsSource.Range("E5:E" & lastRow)
If Not IsEmpty(cell.Value) Then
' E sütununda dolu bir hücre bulduğunda, BD sütunundaki karşılık gelen hücreyi kopyala
If copyRange Is Nothing Then
Set copyRange = wsSource.Range("BD" & cell.Row)
Else
Set copyRange = Union(copyRange, wsSource.Range("BD" & cell.Row))
End If
End If
Next cell

' Eğer herhangi bir hücre seçildiyse, kopyala
If Not copyRange Is Nothing Then
copyRange.Copy Destination:=wsDest.Range("A1")
End If

' İşlem tamamlandığında kullanıcıya bilgi ver
MsgBox "Veriler başarıyla kopyalandı!", vbInformation
End Sub

Genişletmek için tıkla...