Soru Kod Revize

[okan32]

AŞAĞIDAKİ KOD SATIRINA "Zamanlı/Serbest Olmayan Tüketici" YADA (Or) "Zamanlı/Son Kaynak Tarifelerinden Elektrik Alan Serbest Tüketici"OLARAK NASIL REVİZE EDEBİLİRİZ

 Range("E" & NoA) = Replace(Replace(Split(Split(txtPDF, "Zamanlı/Serbest Olmayan Tüketici")(1), "TL")(0), vbLf, ""), ".", ",")

 

[Haluk]

O bölümü şöyle değiştirin;

            Range("E" & NoA).NumberFormat = "#.00"
            On Error Resume Next
                Range("E" & NoA) = Replace(Replace(Split(Split(txtPDF, "Zamanlı/Serbest Olmayan Tüketici")(1), "TL")(0), vbLf, ""), ".", ",") + 0
                Range("E" & NoA) = Replace(Replace(Split(Split(txtPDF, "Zamanlı/Son Kaynak Tarifelerinden Elektrik Alan Serbest Tüketici")(1), "TL")(0), vbLf, ""), ".", ",") + 0
            On Error GoTo 0
           
            Range("F" & NoA).NumberFormat = "dd mmmm yyyy"
            On Error Resume Next
                Range("F" & NoA) = CDate(Split(Replace(Split(Split(txtPDF, "Zamanlı/Serbest Olmayan Tüketici")(1), "TL")(1), vbLf, ""), " ")(1))
                Range("F" & NoA) = CDate(Split(Replace(Split(Split(txtPDF, "Zamanlı/Son Kaynak Tarifelerinden Elektrik Alan Serbest Tüketici")(1), "TL")(1), vbLf, ""), " ")(1))
            On Error GoTo 0

.

 

[okan32]

Çok Teşekkür ederim Haluk Hocam yine imdadıma yetiştiniz.