09-13-2023, 11:45
Merhabalar,
örneğin bir telefon numarası listeniz var.
aşağıdaki gibi bir listeniz olduğunu varsayalım. Hepsini 905 ile başlatmak istiyorsunuz.
5301234567
05301234568
905301234569
bunları kolayca ayarlamak için aşağıdaki kodu kullanabilirsiniz.
Fakat kodların içinde sütun,başlangıç ve bitiş değişkenlerini kendinize göre düzenleyin.
örneğin bir telefon numarası listeniz var.
aşağıdaki gibi bir listeniz olduğunu varsayalım. Hepsini 905 ile başlatmak istiyorsunuz.
5301234567
05301234568
905301234569
bunları kolayca ayarlamak için aşağıdaki kodu kullanabilirsiniz.
Fakat kodların içinde sütun,başlangıç ve bitiş değişkenlerini kendinize göre düzenleyin.
Kod:
Sub NumaralariDuzenle()
'Veriler Hangi Sütunda?
SUTUN = "A"
'VERİLER KAÇINCI SATIRDAN BAŞLIYOR
Satir = 1
'veriler kaçıncı satırda bitiyor?
BITIS = 3
For i = Satir To BITIS
If Len(Range(SUTUN & i)) = 10 Then
Range(SUTUN & i) = "90" & Range(SUTUN & i)
ElseIf Len(Range(SUTUN & i)) = 11 Then
Range(SUTUN & i) = "9" & Range(SUTUN & i)
End If
Next
End Sub