Soru Çarpma işleminde hata

[k0081]

Merhaba arkadaşlar;

ekteki resimde belirtmiş olduüum bir hata ile karşılaşıyorum.
C6 daki veriyi ( ikibasamaklı yada üç basamaklı bir sayıdır.) 12 ile çarptığımda bu ileti geliyor... Bu hatayı nasıl çözebilirim.

yardımcı arkadaşa şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Kodları görmeden sorunu anlamak çok zor.
Mümkünse dosyayı paylaşın.

 

[k0081]

Kodlar şu şekilde ;

Sub ToplamHesapla2()
    Dim icmalSayfa As Worksheet
    Dim digerSayfa As Worksheet
    Dim icmalHucresi As Range
    Dim digerHucresi As Range
    Dim toplam As Double
    Dim arananDeger As String

   ' On Error Resume Next ' Hata durumunu atla

    ' "ICMAL" sayfasını ve E3 hücresini belirle
    Set icmalSayfa = ThisWorkbook.Sheets("ICMAL")
    Set icmalHucresi = icmalSayfa.Range("E3")

    arananDeger = icmalHucresi.Value

    For Each digerSayfa In ThisWorkbook.Sheets
        If digerSayfa.Name <> "ICMAL" And digerSayfa.Name <> "GIRISLER" Then
            ' Aranan değeri içeren satırı bul
            On Error Resume Next
            Set digerHucresi = digerSayfa.Columns("C").Find(arananDeger, LookIn:=xlValues)
            On Error GoTo 0

            If Not digerHucresi Is Nothing Then
                ' Eşleşen satırı bulunduysa, toplama ekle
                toplam = toplam + digerSayfa.Range("CF" & digerHucresi.Row).Value
            End If
        End If
    Next digerSayfa

    ' Toplamı "ICMAL" sayfasındaki C6 hücresine yaz
    icmalSayfa.Range("C6").Value = toplam

    ' Nesne referanslarını temizle
    Set digerHucresi = Nothing
    Set icmalSayfa = Nothing
    Set icmalHucresi = Nothing
End Sub

 

[Muzaffer Ali]

Kodlarda 12 ile yada C6 hücresi ile yapılan bir çarpma işlemi yok, hatta hiç çarpma işlemi yok.
Mümkünse dosyanızı da paylaşın ve kodların hangi satırda hata verdiğini de belirtin.

 

[k0081]

C6 ya veriyi bu kodlar ile alıyorum... çarpma işlemi, herhangi bir hücrede yapıyorum. yani C6 referans vererek.

dosyayı paylaşamıyorum, Çünkü şirket verisi.

şu anda işlemi yapıyorum ve Excel kapanıyor... hata iletisi yok. doğrudan kapanıyor.


hatalı satıra gelince ; debug ile baktığımda :
Set digerHucresi = digerSayfa.Columns("C").Find(arananDeger, LookIn:=xlValues)
bu satırda gösteriyor...


Tetikleme :

Private Sub Worksheet_Calculate()
If Range("E3").Value <> "" Then
ToplamHesapla2
End If
End Sub

 

[Muzaffer Ali]

Dosyadaki özel verileri silerek paylaşabilirsiniz.

Dosya olmadan çözmek zor ama
On Error Resume Next
Satırını silip gelen hatayı söyleyin.

Bu satır tüm hataları görmezden gel anlamına geliyor. Kod yazma aşamasında kullanılabilir ama tamamlanmış kodlarda tüm hata ve sorunlar çözülmüş -giderilmiş olması gerektiğinden bu satırı kullanmanız doğru değil.

 

[k0081]

sildim...

debug ile baktığımda , burada duruyor.

Set digerHucresi = digerSayfa.Columns("C").Find(arananDeger, LookIn:=xlValues)

 

[Muzaffer Ali]

Burada durunca dönen hata iletisi aynı mı farklı mı?
Farklıysa 1. mesajdaki gibi ekran görüntüsü paylaşın.

 

[k0081]

Aynı hata iletisi. İlk mesajımdaki gibi.

 

[Muzaffer Ali]

On Error GoTo 0
Satırını da silip deneyin eğer farklı bir hata verirse söylersiniz aksi halde dosyayı görmeden çözemiyorum.

 

[k0081]

Silmiştim. Hata aynı., Tamam Teşekkürler.