harf ve rakam arasına (.) koymak

Question

Merhaba,

Örnek :

102

10210

1021010

1021010001 olan bir hesap kodu var.

Yukarıdaki rakam dizinini (bunlar harfte olabilir)

102

102.10

102.10.10

102.10.10.001 olarak yazdırmak istiyorum.

Yardımlarınız için şimdiden teşekkür ederim.

Answer 1

Merhaba tekrar,

Eğer dosya göndermek isterseniz OneDrive dosya ve klasörlerini paylaşma makalesindeki Bağlantı alın bölümündeki işlemleri yaparak dosyanızın bağlantısını buraya kopyalayabilirsiniz.

Answer 2

Özgür bey merhaba,

Ben bu makro olayını tam çözemedim. hesap kodlarını size excel dosya halinde nasıl gönderebilirim.

Şöylede bir şey var.

bu dosyayı çalıştırmaktaki maksadım.

110 tane şubemiz var. hepside bu hesap planını kullanıyor.

ve excelde bunlar hepsi bitişik.

yani her biri için ayrı ayrımı yapmak gerekiyor acaba.

Answer 3

Merhaba tekrar,

Yukardaki makroyu uygulayabilirsiniz.

Answer 4

Özgür bey merhaba,

Öncelikle ilginize teşekkür ederim.

Düzen hep aynı şekilde gidiyor.

Bu bir hesap planı.

Dosya gönderebilseydim iyi olurdu ancak buradan göndermeyi anlayamadım.

Ben daha iyi anlaşılması için bir tablo yapıştırsam buraya herhalde anlaşılabilir.

İlginiz için tekrar teşekkür ederim.

BU ŞEKİLDE	OLMASI GEREKEN
100	100
10010	100.10
1001010	100.10.10
1001010001	100.10.10.001
1001020	100.10.20
1001020001	100.10.20.001
1001020002	100.10.20.002
1001020003	100.10.20.003
101	101
10110	101.10
1011010	101.10.10
1011010001	101.10.10.001
1011010002	101.10.10.002
1011010003	101.10.10.003
102	102
10210	102.10
1021010	102.10.10
1021010001	102.10.10.001
1021010002	102.10.10.002
1021010003	102.10.10.003
1021010004	102.10.10.004
1021010005	102.10.10.005
1021010006	102.10.10.006
1021010008	102.10.10.008
1021010009	102.10.10.009
1021010010	102.10.10.010
1021010011	102.10.10.011
1021010012	102.10.10.012
1021010013	102.10.10.013
1021010014	102.10.10.014

Answer 5

Merhaba Deniz Türkmez,

Basit bir makro ile bunu yapabilirsiniz. Hızlı başlangıç: Makro oluşturma makalesinden faydalanarak bir makro kaydedin. Kaydettiğiniz makroyu düzenleye basarak çıkan kodu aşağıdaki kod ile değiştirip çalıştırın.

Dikkat etmeniz gereken nokta hesap numaralarınız A sütununda yer almalıdır. 1. satırdan başlayıp 100. satıra kadar ayarlanmıştır.

For i=1 to 100 kısmındaki 100 rakamını sizin satır sayınız ile değiştirerek bu makroyu kullanabilirsiniz.

Sub noktala()

Columns("A:A").Select

Selection.NumberFormat = "@"

Dim basamak As Long

Dim deger As String

For i = 1 To 100

deger = ActiveSheet.Cells(i, 1).Value

basamak = Len(deger)

    If basamak = 3 Then ActiveSheet.Cells(i, 1).Value = deger

    If basamak = 5 Then ActiveSheet.Cells(i, 1).Value = Left(deger, 3) & "." & Right(deger, 2)

    If basamak = 7 Then ActiveSheet.Cells(i, 1).Value = Left(deger, 3) & "." & Mid(deger, 4, 2) & "." & Right(deger, 2)

    If basamak = 10 Then ActiveSheet.Cells(i, 1).Value = Left(deger, 3) & "." & Mid(deger, 4, 2) & "." & Mid(deger, 6, 2) & "." & Right(deger, 3)

Next i

End Sub