İ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.
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.
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.
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.
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
