aynı hücre içerisine yazılan veryi kopyalama

[serdarca]

Öncelikle hayırlı günler. Arkadaşlar bana çalışma sayfası 1 de A:2 hücresinin içerisine her yazdığım veriyi çalışma sayfası 2 de A:2 alt alta koplamasını istiyorum. Yardımcı olabilirsenizi sevinirim. İyi çalışmalar.

 

[Ömer]

Öncelikle hayırlı günler. Arkadaşlar bana çalışma sayfası 1 de A:2 hücresinin içerisine her yazdığım veriyi çalışma sayfası 2 de A:2 alt alta koplamasını istiyorum. Yardımcı olabilirsenizi sevinirim. İyi çalışmalar.

Merhaba,

Sayfa1'in kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim S2 As Worksheet, son As Long
    
    If Intersect(Target, [A2]) Is Nothing Then Exit Sub
    
    Set S2 = Sheets("Sayfa2")
    son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    S2.Cells(son, "A") = Target.Value
       
End Sub

.

 

[serdarca]

Teşekkür ederim yardımın için

 

[serdarca]

Hocam aynı çalışma sayfasanıda d6 hücresinide kullanıyorum sayfa 2 de c ye atamadım bide buna yardım ederseniz sevinirim. formülü iki kere yazdım biri a hücresi için biri d hücresi için ama olmadı bi yardım daha ederseniz sevinirim.

 

[Ömer]

Açıklamanızı tam olarak anlayamadım. Örnek ekleyerek açıklarmısınız.

 

[serdarca]

Sayfa 1 deki dosya numarasını sayfa2 de dosya numarasının olduğu yere adres kısmını sayfa2 de muhatap kısmına şehirde sayfa2 Gideceği yer kısmına yazdırmak istiyorum. dosya numarasını becerdim ama diğerlerini beceremedim.

 

[Ömer]

Sayfa 1 deki dosya numarasını sayfa2 de dosya numarasının olduğu yere adres kısmını sayfa2 de muhatap kısmına şehirde sayfa2 Gideceği yer kısmına yazdırmak istiyorum. dosya numarasını becerdim ama diğerlerini beceremedim.

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim S2 As Worksheet, son As Long
    
    If Intersect(Target, [B2,D6,D7]) Is Nothing Then Exit Sub
    
    Set S2 = Sheets("Sayfa2")
    
    With Target
        son = S2.Cells(Rows.Count, .Column).End(xlUp).Row + 1
        If .Address = "$B$2" Then
            S2.Cells(son, "B") = .Value
        ElseIf .Address = "$D$6" Then
            S2.Cells(son, "C") = .Value
        ElseIf .Address = "$D$7" Then
            S2.Cells(son, "D") = .Value
        End If
    End With
       
End Sub

.

 

[serdarca]

Teşekkür ederim hocam Allah Razı olsun.