Userform textbox hucereye aktar formul silinmesin

[netvolxxx]

Merhaba şöyle bir durumda örnek
Userform textbox1 yazıp kaydet buton bastığımda a3 hucresine eklicek fakat a3 hücresinde bulunan formül silinmicek bunu nasıl yapabilirim.

 

[Necdet]

Merhaba,

A3 hücresinde formül var.
A3 hücresine "TextBox1 deki değeri ekleyecek" ne demek?
eğer Textbox1 i aktarırsanız A1 hücresindeki formül doğal olarak silinir ve TextBox1'in değeri aktarılır.
Ya da anlatmak istediğiniz bu değilse örnek dosya ekleyin ve olması gerekeni orada belirtin.

 

[Korhan Ayhan]

Anladığım kadarıyla aşağıdaki çözümü kullanabilirsiniz.

Option Explicit

Private Sub CommandButton1_Click()
    If IsNumeric(TextBox1) Then
        With Sheets("Sheet1")
            If .Range("A3").HasFormula Then
                .Range("A3").Formula = .Range("A3").Formula & "+" & Replace(TextBox1, ",", ".")
            End If
        End With
    Else
        TextBox1 = ""
        TextBox1.SetFocus
        MsgBox "Lütfen sayısal değer giriniz!", vbCritical
    End If
End Sub

 

[netvolxxx]

cevaplar için teşekkür ederim formul alanı yerini değiştirdim sorun başka türlü çözdüm..