Kısa Açıklama
TXT Uzantılı Belgeden Koşullu Veri Alma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.Merhaba,
hiç soru kalmayınca yine ben yeni bir soru ile geleyim dedim
Ekte yer alan dosyanın H sütununa TOTAL VISA CHARGES başlığında yei bir sütun açarak dosyada sarı renk ile belirttiğim alanın TOTAL AMOUNT değerini getirmek için şağıdaki kodu ekledim mevcut kodda ki diğer değişecek yerleri değiştirdim fakat yapamadım.
Desteğiniz için şimdiden teşekkür ederim.
varmitCHA = WorksheetFunction.CountIf(b.Range(alan), "*" & b.[H1] & "*")
If varmitCHA > 0 Then
tCHAsat = WorksheetFunction.Match("*" & b.[H1] & "*", Range(alan), 0) + a.Row
parca2 = Application.Trim(Right(b.Cells(tCHAsat, 1), 30))
b.Cells(a.Row, 7) = Left(parca2, Len(parca2) - 2)
' Else
' b.Cells(a.Row, 7) = "VERİ YOK"
End If
hiç soru kalmayınca yine ben yeni bir soru ile geleyim dedim
Ekte yer alan dosyanın H sütununa TOTAL VISA CHARGES başlığında yei bir sütun açarak dosyada sarı renk ile belirttiğim alanın TOTAL AMOUNT değerini getirmek için şağıdaki kodu ekledim mevcut kodda ki diğer değişecek yerleri değiştirdim fakat yapamadım.
Desteğiniz için şimdiden teşekkür ederim.
varmitCHA = WorksheetFunction.CountIf(b.Range(alan), "*" & b.[H1] & "*")
If varmitCHA > 0 Then
tCHAsat = WorksheetFunction.Match("*" & b.[H1] & "*", Range(alan), 0) + a.Row
parca2 = Application.Trim(Right(b.Cells(tCHAsat, 1), 30))
b.Cells(a.Row, 7) = Left(parca2, Len(parca2) - 2)
' Else
' b.Cells(a.Row, 7) = "VERİ YOK"
End If
Ekli dosyalar