Hücreye yazılan rakamın başına sınırlanan karakter sayısına kadar otomatik tamamlama makrosu

[Salihd46]

Merhaba arkadaşlar, çok uzatmayayım;
hücre 14 karakter olacak her zaman, yazılan sayının başına sınırlanan karaktere kadar araya sıfır bırakacak, örneğin;
hücreye 3357 yazdığımızda, TR460000003357
hücreye 885764 yazdığımızda TR460000885764
başında TR46 sabit aradaki sıfırları sınırlanan karakter sayısına kadar sınırlama formülü, biraz araştırdım, bir türlü bulamadım, yardımcı olursanız sevinirim, şimdiden teşekkürler

 

[ÖmerBey]

Merhaba,
Öncelikle foruma hoşgeldiniz. Bu işlemin makro ile yapılması zorunlu mu? Zira sadece hücre biçimini değiştirerek bu işlemi yapabilirisiniz.
Hücre biçiminden isteğe uyarlanmış seçip biçim olarak TR460000000000 yazınız.

 

[Salihd46]

hoşbulduk, teşekkürler. işimle ilgili bir çalışma yapıyorum da yeni. bunun da makro ile olacağını tahmin etmiştim. cevap için teşekkür ederim Ömer Bey

 

[Seyit Tiken]

Şekildeki gibi deneyiniz.

 

[Salihd46]

Süper oldu, çok teşekkür ederim

 

[Salihd46]

Ben bu özelliği gelişmiş filtreleme ile arama yapma kutusuna otomatik doldurma için kullanacaktım.
Az önce denedim tamamlama yapıyor fakat, bu numaralı şahsın diğer bilgileri otomatik gelsin diye.
arama yap makrosuna basınca otomatik tamamladığı veri ile arama yapmıyor ama elle kendim yazarsam arama yapıyor, çözemedim

 

[ÖmerBey]

Arama yap makrosuna veriyi .Value yerine .Text olarak aldırırsanız hücrede gözüken şekliyle işlem yapılacaktır.

 

[Salihd46]

Private Sub CommandButton11_Click()
Sheets("İŞLETMELER").Columns("A:G").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("'T.C. ARAMA'!Criteria"), CopyToRange:=Range("B17:H6000" _
), Unique:=False
End Sub

arama makrom bu

 

[Salihd46]

Private Sub CommandButton3_Click()
Sheets("İŞLETMELER").Columns("A:G").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A18:G19"), CopyToRange:=Range("A21:G25"), Unique:= _
False
End Sub

bu da var örneğin

 

[ÖmerBey]

Merhaba arkadaşlar, çok uzatmayayım;
hücre 14 karakter olacak her zaman, yazılan sayının başına sınırlanan karaktere kadar araya sıfır bırakacak, örneğin;
hücreye 3357 yazdığımızda, TR460000003357
hücreye 885764 yazdığımızda TR460000885764
başında TR46 sabit aradaki sıfırları sınırlanan karakter sayısına kadar sınırlama formülü, biraz araştırdım, bir türlü bulamadım, yardımcı olursanız sevinirim, şimdiden teşekkürler

Aşağıdaki makro kodunu ilgili sayfanın kod bölümüne kopyalayınız.
Kırmızı kısmı değiştirerek kodun çalışmasını istediğiniz alanı sınırlayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Cells(1, 1).Value = Format(Target.Cells(1, 1).Value, "TR460000000000")
End Sub

 

[Salihd46]

kodda kırmızı yazan alana asıl hücrenin (C13:C13) ve (A1:C13) olarak denedim, bi türlü çalıştıramadım.

 

[ÖmerBey]

Kodu sayfanın kod bölümüne mi kopyaladınız, yoksa modül içerisine mi? Sayfanin kod bölümüne kopyalamadıysanız tetikleme olmayacaktır.
(Altta yer alan sekme/sayfa adı üzerinde sağ tık>Kod görüntüle diyerek ilgili alana ulaşabilirsiniz.)

 

[Salihd46]

Ömer bey gece uyuyakalmışım, şimdi denedim, çok güzel çalışıyor, çok teşekkür ederim

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...