• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü SGK İşyeri Sicil Numarası Formatı

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Y

Yasar PİSKİN

Yeni Üye
Katılım
18 Nis 2021
Mesajlar
460
Çözümler
2
Aldığı beğeni
107
Excel V
Office 365 TR
Konu Sahibi
AA6:AA10 arasındaki SGK İşyeri Sicil Numarasının hanelerinin arasındaki noktaların kaldırılarak AA4 hücresindeki gibi olmasını sağlamak için mevcut kodun iyileştirilmesi hususunda hususunda yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
halily
mantığınızı anlamadım ama aşağıdaki kod işinize yarayabilir?
normalde yazdığınız kod çalışıyordu ama girdiğiniz verinin yapısı kısır döngü doğurduğu için dosya kapanıyordu en azından bende öyle oldu
o nedenle kısır döngüyü engellemek için kodun çalışmasını koşula bağladım
sayfanın en başına Dim xCik As Byte ekleyip koda bu veriye göre çalışma koşulu ekledim
If Len(deg) = 26 Then
xCik = 1 '<<== eklenen​
With CreateObject("vbscript.regexp")​
.Pattern = "(\d{1})(\d{4})(\d{2})(\d{2})(\d{7})(\d{3})(\d{2})(\d{2})(\d{3})"​
.Global = True: deg2 = .Replace(deg, "$1 $2 $3 $4 $5 $6 $7 $8 $9")​
End With: Target = deg2​
xCik = 0 '<<==...​
Tarihe göre sırala Oylara göre sırala
Hücreyi seçip, CTRL + H yapıp, bul(aranan) kutucuğuna . (nokta) yazıp, yeni değer bir boşluk bırakıp, tümünü değiştir yaparsanız, hepsi yok olur.
 
Olumlu oy 0 Negatif oyla
range.replace ile ilgili bir araştırma işinize yarayabilir
 
Olumlu oy 0 Negatif oyla
mantığınızı anlamadım ama aşağıdaki kod işinize yarayabilir?
normalde yazdığınız kod çalışıyordu ama girdiğiniz verinin yapısı kısır döngü doğurduğu için dosya kapanıyordu en azından bende öyle oldu
o nedenle kısır döngüyü engellemek için kodun çalışmasını koşula bağladım
sayfanın en başına Dim xCik As Byte ekleyip koda bu veriye göre çalışma koşulu ekledim
If Len(deg) = 26 Then
xCik = 1 '<<== eklenen​
With CreateObject("vbscript.regexp")​
.Pattern = "(\d{1})(\d{4})(\d{2})(\d{2})(\d{7})(\d{3})(\d{2})(\d{2})(\d{3})"​
.Global = True: deg2 = .Replace(deg, "$1 $2 $3 $4 $5 $6 $7 $8 $9")​
End With: Target = deg2​
xCik = 0 '<<== eklenen​
End If

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
rica ederim
iyi çalışmalar)
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst