sgk müfredat kartı

Katılım
27 Aralık 2010
Mesajlar
4
Excel Vers. ve Dili
excel2003
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.
 
Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Modüle yapıştırıp çalıştırın.
Kod:
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
 
Katılım
27 Aralık 2010
Mesajlar
4
Excel Vers. ve Dili
excel2003
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
 
Katılım
2 Haziran 2007
Mesajlar
15
Excel Vers. ve Dili
Microsoft Office Excel 2010 English
Altın Üyelik Bitiş Tarihi
24/05/2019
gerekli açıklamayı ekte yaptım umarım faydası olur.
 

Ekli dosyalar

Son düzenleme:
Katılım
27 Aralık 2010
Mesajlar
4
Excel Vers. ve Dili
excel2003
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.
 
Katılım
2 Haziran 2007
Mesajlar
15
Excel Vers. ve Dili
Microsoft Office Excel 2010 English
Altın Üyelik Bitiş Tarihi
24/05/2019
sorun hallolduysa sıkntı yok :)
 
Katılım
4 Eylül 2007
Mesajlar
1
Excel Vers. ve Dili
2003 türkçe
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.
 
Üst