MAKRO İLE HÜCRE DOLDURURKEN AYNI RAKAMI YAZMIYOR

[quetri]

MERHABA, BUTONA ATADIĞIM MAKRO İLE SABİT BİR HÜCREDEKİ VERİYİ BİR SÜTUNA BAŞTAN AŞAĞI HER BUTONA TIKLADIĞIMDA YAZDIRIYORUM, FAKAT FARKETTİMKİ AYNI DEĞERDEN 2 TANE OLUNCA YAZMIYOR ÖRNEĞİN;
HESAPLAMA TABLOSUNA DEĞERLERİ GİRDİM SONUC E10 HÜCRESİNDE 1000 OLARAK ÇIKTI VE BUTONA BASINCA DEĞERİ G2'YE YAZDI
AYNI ŞEKİLDE BİR HESAPLAMA DAHA YAPTIM VE ODA 1000 OLARAK ÇIKTI FAKAT BUTONA BASTIĞIMDA VERİYİ G3 E YAZMADI
AMA FARKLI DEĞER OLUNCA YAZIYOR;
KODLARI AŞAĞI YAZIYORUM SİZDEN YARDIMLARINIZI BEKLİYORUM, ŞİMDİDEN İLGİLENEN ARKADAŞLARA TEŞEKKÜR EDİYORUM

Sub buton()
say = 0
For x = 2 To Range("g" & Rows.Count).End(xlUp).Row
If Trim(Range("e10")) = Trim(Range("g" & x)) Then
say = say + 1
End If
Next
If say < 1 Then
Range("g" & Range("g" & Rows.Count).End(xlUp).Row + 1) = Trim(Range("e10"))
End If
Range("e10") = "=E3+E4+E5+E6+E7+E8+E9"
End Sub

 

[akcygt11]

Denermisiniz

Sub buton()
    Dim say As Integer
    say = 0
    For x = 2 To Range("g" & Rows.Count).End(xlUp).Row
        If Trim(Range("e10")) = Trim(Range("g" & x)) Then
            say = say + 1
        End If
    Next
    If say < 1 Then
        Range("g" & Range("g" & Rows.Count).End(xlUp).Row + 1) = Trim(Range("e10"))
    Else
        Range("g" & Rows.Count).End(xlUp).Offset(1, 0) = Trim(Range("e10"))
    End If
    Range("e10") = "=E3+E4+E5+E6+E7+E8+E9"
End Sub

 

[quetri]

HOCAM TEŞEKKÜR EDİYORUM OLDU. 1 SORUM DAHA OLACAK BU BUTONA TIKLADIĞIMDA RAKAMLARI ALT ALTA SIRALIYOR FAKAT YANINDA BİR ÜNLEM ÇIKIYOR METİN OLARAK SAKLANAN SAYI GİBİ BİR İBARE YER ALIYOR, BU NEDENLE BU RAKAMI FARKLI BİR FORMÜLDE TOPLAMAYA KALKTIĞIMDA İŞLEME ALMIYOR. AMA ÜZERİNE GELİP YAZI YAZAR GİBİ YAPIP ENTERLAYINCA İŞLENİYOR.
YANİ KISACASI BU FORMÜLDE E10 DAKİ DEĞERİ G' YE YAZARKEN KUSURLU BİÇİMDE YAZDIRIYOR GİBİ

 

[akcygt11]

Rica ederim verilerin string olarak kaydedilmesi için şunu dener misiniz

Sub buton()
    Dim say As Integer
    say = 0
    For x = 2 To Range("g" & Rows.Count).End(xlUp).Row
        If Trim(Range("e10").Value) = Trim(Range("g" & x).Value) Then
            say = say + 1
        End If
    Next
    If say < 1 Then
        Range("g" & Range("g" & Rows.Count).End(xlUp).Row + 1).Value = Trim(Range("e10").Value)
    Else
        Range("g" & Rows.Count).End(xlUp).Offset(1, 0).Value = Trim(Range("e10").Value)
    End If
    Range("e10").Formula = "=E3+E4+E5+E6+E7+E8+E9"
End Sub

 

[quetri]

Denedim hocam olmadı maalesef, aynı şekil devam ediyor

 

[quetri]

DOSYA BU HOCAM

 

[akcygt11]

Bende Garip Bir Şekilde Çalışıyor G sütununa gelen değerler aynı şekilde F sütünunda da toplanıyor son bir çözüm için şunu da deneyebilir misiniz

Sub buton()
    Dim say As Integer
    say = 0
    For x = 2 To Range("g" & Rows.Count).End(xlUp).Row
        If CDbl(Trim(Range("e10").Value)) = CDbl(Trim(Range("g" & x).Value)) Then
            say = say + 1
        End If
    Next
    If say < 1 Then
        Range("g" & Range("g" & Rows.Count).End(xlUp).Row + 1).Value = CDbl(Trim(Range("e10").Value))
    Else
        Range("g" & Rows.Count).End(xlUp).Offset(1, 0).Value = CDbl(Trim(Range("e10").Value))
    End If
    Range("e10").Formula = "=E3+E4+E5+E6+E7+E8+E9"
End Sub

 

[quetri]

Evet hocam şimdi oldu işte Sonuca vardık. Şuan tam istediğim gibi çalışıyor eline sağlık Çok çok Teşekkür ediyorum