Hücrenin içine yazdığım değeri her seferinde a1 e eklemek

[mehce]

Selamlar
A1 de ='sayfa1'!Z10 formülü var
K1 e ne yazarsam yazayım, butona tıkladığımda
A1 e eklemesini istiyorum ='sayfa1'!Z10+(K1 de yazan)
K1 i değiştirip 2. buton click te ='sayfa1'!Z10+(K1 de yazan)+(K1de yeni yazan)+.....
şimdiden teşekkürler

 

[caneruysal]

Sayfa.1Cells(1,1) = Sayfa1.Cells(1,1) & vbLf & Sayfa1.Cells(1,11)

Bunu mu demek istediniz ?

 

[mehce]

Bu yazdığınız formülü anlamadım
son formüldeki "+" lar işlem anlamındadır metin eklemek anlamına gelmiyor
Yani her butona basışta formül yenilenecek yeni sayfadan yeni hücre eklenecek (her ay yeni sayfa eklenecek) buton makrosu daha uzun fakat sadece bu kısmını yapamadım

Sayfa.1Cells(1,1) = Sayfa1.Cells(1,1) & vbLf & Sayfa1.Cells(1,11)

Bunu mu demek istediniz ?

 

[Korhan Ayhan]

Deneyiniz.

Sub Topla()
    If Range("A1").HasFormula Then
        If Range("K1") <> "" Then
            If IsNumeric(Range("K1")) Then
                Range("A1").Formula = Range("A1").Formula & "+" & Range("K1").Value
            End If
        End If
    End If
End Sub

 

[mehce]

Deneyiniz.

Sub Topla()
    If Range("A1").HasFormula Then
        If Range("K1") <> "" Then
            If IsNumeric(Range("K1")) Then
                Range("A1").Formula = Range("A1").Formula & "+" & Range("K1").Value
            End If
        End If
    End If
End Sub

Çalışmıyor hatada vermiyor

 

[Korhan Ayhan]

Bu durumda uyguladığınız dosyayı eklemeniz gerekecek.

 

[mehce]

 

[Korhan Ayhan]

Makroya gerek yok aslında..

Aşağıdaki formülü kullanabilirsiniz.

=TOPLA('01:03'!H6)

 

[Korhan Ayhan]

Makro ile aşağıdaki gibi uygulayabilirsiniz.

Sub Topla()
    If Range("B2").HasFormula Then
        If Range("L2") <> "" Then
            Range("B2").Formula = Range("B2").Formula & "+" & "'" & Range("L2").Value
        End If
    End If
End Sub

 

[mehce]

Makro ile aşağıdaki gibi uygulayabilirsiniz.

Sub Topla()
    If Range("B2").HasFormula Then
        If Range("L2") <> "" Then
            Range("B2").Formula = Range("B2").Formula & "+" & "'" & Range("L2").Value
        End If
    End If
End Sub

işte budur çok teşekkür ederim