Filtrelenmiş hücreleri kopyala yapıştır

[ASLAN7410]

Hayırlı kandiller.


Ekte gönderdiğim excel dosyamın L sütununa başka sayfalardan farklı formüller kullanarak
farklı farklı veri getiriyorum bundan dolayıda süzmüş olduğum veriyi de filtreyi açmadan
G sütununa aynı şekilde yapıştırmak istiyorum.

İnternette .xlam uzantılı bir excel dosyası buldum ancak iş yeri olduğu için bunu ekleyemem.

Forumda örnek çalışmalar buldum ancak çözüm olmamış.

Yardımcı olur musunuz?

http://dosya.co/ovqqbketoovi/Örnek.xlsx.html

.

 

[Orion1]

Buyurun.

Sub yapistir59()
Dim hcr As Range, sonsat As Long
Sheets("Sayfa1").Select
sonsat = Cells(Rows.Count, "L").End(xlUp).Row
For Each hcr In Range("L2:L" & sonsat)
    If hcr.Rows.Hidden = False Then
        Cells(hcr.Row, "G").Value = hcr.Value
    End If
Next
MsgBox "İşlem Tamam." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ASLAN7410]

Sayın Evren Bey ellerinize sağlık valla süper oldu, ellerinize sağlık Allah razı olsun.

Hayırlı çalışmalar hayırlı kandiller dilerim.

 

[Orion1]

Sayın Evren Bey ellerinize sağlık valla süper oldu, ellerinize sağlık Allah razı olsun.

Hayırlı çalışmalar hayırlı kandiller dilerim.

Rica ederim.
İyi çalışmalar.

 

[ASLAN7410]

Mesaj silindi