Şarta göre başka sayfaya bilgi kopyalama

[ijol]

Merhaba,

Anasayfa sayfasında bulunan isimlerin yanına tarih yazıldığı zaman ve bir butona basılınca o kişiye ait olan satırlardaki tüm bilgiler kişinin ismi ile açılan sayfadaki tarihe otomatik olarak kopyalama nasıl yapabilirim.

örneğin ahmet yılmaz'ın ve serkan durmaz'ın yanına yazılan bilgiler yazılan tarihe otomatik olarak kopyalamasını istiyorum.

 

[Orion1]

Merhaba,

Anasayfa sayfasında bulunan isimlerin yanına tarih yazıldığı zaman ve bir butona basılınca o kişiye ait olan satırlardaki tüm bilgiler kişinin ismi ile açılan sayfadaki tarihe otomatik olarak kopyalama nasıl yapabilirim.

örneğin ahmet yılmaz'ın ve serkan durmaz'ın yanına yazılan bilgiler yazılan tarihe otomatik olarak kopyalamasını istiyorum.

Bu isteğiniz makro vba bölümü ile ilgilidir.
Lütfen sorularınızn uygun bölümde açınız.Siz fonksiyonlar bölümüğnde sormuşsunuz.Ben MAKRO VBA bölümüne taşıdım.

 

[Korhan Ayhan]

Selamlar,

Evren beyin uyarısını lütfen dikkate alın.

Aşağıdaki kodu boş bir modüle ekleyip denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim X As Long, SAYFA As Worksheet, BUL As Range
 
    With Sheets("Anasayfa")
 
    If WorksheetFunction.CountA(.Range("C2:C65536")) = 0 Then
    MsgBox "Lütfen aktarmak istediğiniz satırların yanına tarih giriniz !", vbExclamation
    Exit Sub
    End If
 
    For X = 2 To .Range("C65536").End(3).Row
        If .Cells(X, 3) <> "" Then
        For Each SAYFA In Worksheets
            If SAYFA.Name <> "Anasayfa" And SAYFA.Name = .Cells(X, 1) Then
                Set BUL = SAYFA.Range("A:A").Find(.Cells(X, 3))
                If Not BUL Is Nothing Then
                    SAYFA.Cells(BUL.Row, 2) = .Cells(X, 1)
                    SAYFA.Cells(BUL.Row, 3) = .Cells(X, 4)
                    SAYFA.Cells(BUL.Row, 4) = .Cells(X, 5)
                    SAYFA.Cells(BUL.Row, 5) = .Cells(X, 6)
                End If
            End If
        Next
        End If
    Next
 
    End With
 
    Set BUL = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ijol]

Üstat çok güzel olmuş, son olarakta anasayfaya buton ekleyerek, butona tıklayınca kopyalama işlemini yapabilecek bişey yapılabilirmi?

 

[ijol]

Korhan üstat ben nasıl yapacağımı buldum,

soru sorarken konuyu açacağım yere dikkat ederim.

Yardımlarınız için çok teşekkür ederim.