• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Hücredeki bulunan bedellerin toplamını alıp yan hücreye yazdırmadaki kodda hata vermesi

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

mars2

Gold Üye
Katılım
22 Nis 2022
Mesajlar
67
Aldığı beğeni
12
Excel V
Office 2016 TR
Gold Bitiş
25 Mayıs 2026
Konu Sahibi
İyi AKşamlar;
Daha önceden açtığım ve userx üstadımız tarafından aşağıdaki kod ile sorunu çözmüştük. Ancak, tablomda 500 den fazla veri bulunduğu, bu verilerin buılunduğu "M" sutununda, bazı boş hücrelerde bulunmaktadır. Kodu çalıştırdığımda aşağıdaki satırda hata vermektedir.

1693495025896.png


1693495052611.png


Sub Carp_Aktar()
With Application: .ScreenUpdating = False: .EnableEvents = False: End With
Dim z() As String, s As String: Dim i As Integer: Dim x As Long
son = Cells(Rows.Count, "A").End(3).Row: Range("N2:N" & son).ClearContents
For x = 2 To son:
z = Split(Cells(x, "M").Value, Chr(10))
For i = LBound(z) To UBound(z)
If IsNumeric(z(i)) Then s = s & Format(CDbl(z(i)) * 12, "#,###.00") & vbCrLf
Next i
Cells(x, "M").Offset(0, 1).Value = Left(s, Len(s) - 1)
s = Empty
Next x
End Sub

Yardımlarınızı esirgimeyeceğiz düşüncesi ile sorunun kaynağı ve sorunun çözümü,
Ayrıca, "N" sutunundaki hücrelere Change yapılarak işlem yapılamsıi halinde yukarıdaki kodda nasıl bir değişiklik yapılması gerekmektedir.
 
Kodu şu şekilde kullanırsanız boş hücreleri atlar

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Merhabalar

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

kodu değiştiriniz
 
Konu Sahibi

Sayın askan ve mesudiye_052;​


İlgi ve alakanız teşekkürler;
Sayfada tek tek hücrede Change yapılarak işlem yapılması halinde kodumuz nasıl olmalıdır.
 
Merhabalar
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst