Sayıya Çevirme (SGK Borç Sorgulama Sayfası)

[ziya]

Merhaba,
İlgili arkadaşlar bilirler, SGK borç sorgulama sayfasını yeniledi. Bu yeni formatta "sayıya çevir" makrosu uygulayamadım.
Yardım rica ediyorum.

Selamlar,

 

[swxtr]

Takipteyim..

 

[Zeki Gürsoy]

SGK dan borç sorgulayan program kodunu buraya ekleyin. Onun üzerinden gidelim.

 

[ziya]

Zeki hocam,
SGK' borç sorgulama sitesinden borcu manuel copy/paste yapıyorum.

Site : https://uyg.sgk.gov.tr/IsverenBorcSorgu/login/userLogout.action
Girebilmek için maalesef bir firma şifreniz olması gerekiyor.
İlginize teşekkür ederim.

 

[vardar07]

SGK dan borç sorgulayan program kodunu buraya ekleyin. Onun üzerinden gidelim.

k::k::k::

 

[Murat OSMA]

Zeki hocam,
SGK' borç sorgulama sitesinden borcu manuel copy/paste yapıyorum.

Site : https://uyg.sgk.gov.tr/IsverenBorcSorgu/login/userLogout.action
Girebilmek için maalesef bir firma şifreniz olması gerekiyor.
İlginize teşekkür ederim.

O hâlde copy/paste yaptığınız dosyanızı ekleyin. Onun üzerinden gidelim. ​

 

[askm]

Trim(range("a1"))*1 şeklinde deneyin. Başına boşluk ekliyor. Boşluk silmeniz ve 1 ile çarparak sayı yapmanız gerek. Döngü ile tüm sütuna uygulayın.

 

[ziya]

Merhaba,
Dosya linki :
http://s3.dosya.tc/server10/okhubb/Ornek-zf.xls.html

Selamlar,

 

[ziya]

Merhaba
Sn. askm Trim(range("a1"))*1 sorunu kısmen çözüyor.

Dosya ekledim, Dosya linki :
http://s3.dosya.tc/server10/okhubb/Ornek-zf.xls.html

Selamlar,

 

[askm]

Formül ile KIRP(S2)*1
Makro ile

Sub askm()
Dim son As Integer
son = Cells(65536, "S").End(3).Row
For i = 2 To son
    For sutun = 4 To 20
        If Cells(i, sutun) <> "" Then
            Cells(i, sutun) = trim(Cells(i, sutun)) * 1
        End If
    Next sutun
Next i
End Sub

 

[igultekin2000]

benim kullandığım

zaman zaman bende bu işlemi yapıyorum.

=YERİNEKOY(YERİNEKOY(D2;DAMGA(160);"");" ";"")*1

bu şekilde halloluyor.

 

[ziya]

Sayın askm,

Makro tam ve net çözüm.
Teşekkür ederim,

Selam ve saygılarımla,

 

[ziya]

zaman zaman bende bu işlemi yapıyorum.

=YERİNEKOY(YERİNEKOY(D2;DAMGA(160);"");" ";"")*1

bu şekilde halloluyor.

Sn. igultekin,
Sonradan fark ettim.
Siz de aynı sorunu yaşıyormuşsunuz, önerdiğiniz formül dört dörtlük. Teşekkür ederim.
Sn askm tarafından önerilen makro daha toptan çözüm, tavsiye ederim.

Selamlar,