bir tarafta bul diğer tarafa yaz

[GursoyC]

Merhaba arkadaşlar,
Kısaca yapmaya çalıştığım şu:
Belirli bir hücredeki tarihi bir tarafta bulup, o tarihin olduğu sütunu komple kopyalayıp diğer tarafta yine aynı tarihin olduğu sütuna yapıştırması.

Eklediğim dosyada da sorunu açıkladım. Yardımcı olabilirseniz çok sevinirim.
Teşekkürler.

 

[veyselemre]

Private Sub CommandButton1_Click()
    Set c = Range("B17:H17").Find(What:=Range("K3"))

    If Not c Is Nothing Then
        sut = c.Column
        Range(c.Offset(1, 0), Cells(Cells(Rows.Count, sut).End(3).Row, sut)).Copy c.Offset(1, 13)
    Else
        MsgBox "Aranan tarih bulunamadı..", vbCritical
    End If

End Sub

 

[GursoyC]

Çok teşekkür ederim. Gayet güzel çalışıyor.
Saygılar.

 

[Tevfik_Kursun]

Ben de teşekkür ederim
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Sayın Veyselemre,
Bu çalışmada siz, kopyalanacak yerin aynı sayfada ve sütunun 13 sütun sağında olmasından yararlanmışsınız.
Bu kopyalama farklı sayfada ve sırası uymayan sütunlarda olsa ne olurdu?
Saygılarımla

 

[GursoyC]

Merhaba Tevfik bey,
ben farklı çalışma kitaplarındaki çalışmam için sormuştum soruyu ve sayın veyselemre'nin cevabını kendime şöyle uyarladım:

tar = Workbooks("1.xlsm").Sheets("sayfa1").Range("k3").Value
    
    Set c = Range("B17:H17").Find(What:=tar)
    Set yapistir = Workbooks("2.xlsm").Sheets("sayfa1").Range("O12:U12").Find(What:=tar)
    
    If Not c Is Nothing Then
        sut = c.Column
        Range(c.Offset(1, 0), Cells(Cells(Rows.Count, sut).End(3).Row, sut)).Copy  yapistir.Offset(1, 0)
    Else
        MsgBox "Aranan tarih bulunamadı..", vbCritical
    End If

set yapistir adresini kendi çalışma kitabınızdaki sayfa olarak ayarlayabilirsiniz.