sgk müfredat kartı

[icdenetci]

Merhaba arkadaşlar,

sgk'nın sayfasından aldığımız müfredat kartında rakamları toplatamıyorum. rakamların sağında ve solunda boşluklar olduğu için sayı olarak görmüyor. yardımcı olabilirmisiniz.

 

[Civan Jack]

Dosyanızı görelim.

 

[icdenetci]

örnek

ekte bulabilirsiniz.

 

[Civan Jack]

Modüle yapıştırıp çalıştırın.

Sub Bosluk_Kaldir()
    Dim i As Integer
    For i = 2 To Range("a65536").End(3).Row
        Cells(i, "H") = Trim(Cells(i, "H")) * 1
        Cells(i, "I") = Trim(Cells(i, "I")) * 1
        Range("H18").Value = WorksheetFunction.Sum(Range("H2:H16"))
        Range("I18").Value = WorksheetFunction.Sum(Range("I2:I16"))
    Next i
    i = Empty
End Sub

 

[icdenetci]

Civan Jack, çok teşekkür ederim.
dediğiniz gibi yaptım ama hata veriyor. yardımcı olabilir misiniz.

Sub Bosluk_Kaldir()
Dim i As Integer
For i = 2 To Range("a65536").End(3).Row
Cells(i, "H") = Trim(Cells(i, "H")) * 1
Cells(i, "I") = Trim(Cells(i, "I")) * 1
Range("H588").Value = WorksheetFunction.Sum(Range("H2:H588"))
Range("I588").Value = WorksheetFunction.Sum(Range("I2:I588"))
Next i
i = Empty
End Sub

 

[boshbelesh]

gerekli açıklamayı ekte yaptım umarım faydası olur.

 

[icdenetci]

senin dediğin yöntemle boşlukları kaldırmaya çalışıyordum ama yapamamıştım. space ile verilen boşlukları değiştirmiyordu ama ascii karakter olarak girdiğimizde kabul etti.
yardımlarınız için teşekkür ederim.

 

[boshbelesh]

sorun hallolduysa sıkntı yok

 

[bora1974]

Boşluk olan kısmı seçip, Tümünü değiştir sekmesine kopyala. Değiştire bastığında tüm boşlukları kaldırır.