Soru formüllü hücredeki veriyi çift tıkla başka sayfaya aktarma

[NADİR YILDIZ]

Formüllü hücredeki veriyi çift tıkla başka sayfaya aktarılır mı ?

 

[Muzaffer Ali]

Merhaba.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Worksheets("Sayfa2").Range("A1") = Target.Value
    End If
End Sub

Sadece formüllü hücrelerin değerini aktarmak için.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Range("A:A")) Is Nothing And Left(Target.Formula, 1) = "=" Then
        Worksheets("Sayfa2").Range("A1") = Target.Value
    End If
End Sub

 

[NADİR YILDIZ]

Sayın Muzaffer ali bey Teşekkür ederim

iyi çalışmalar

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.