Hücre içeriği Kopyalama (İlk 4 Rakam)

[asi_kral]

Merhaba Asi Bey,
İlk sorun çözüldü elinize sağlık. İkinci soruna gelince metin olarak işlem yapamamaktayım. Bunun için makro olursa çok sevinirim. Girilen rakam 012 ve 001 gibi 0 ile başlıyorsa bu şekilde yazılmalı, 01 giriliyorsa yine bu şekilde yazılmalı. Böyle bir şey olmalı. 2 ve 3 haneli girdiğimde girilen rakam 0 ile başladığında bile yazmalı.

Tekrardan teşekkür ederim.
İyi çalışmalar dilerim.

Merhaba
Bu sorunuz için de çözüm bu olabilir.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BLG As Long
Application.EnableEvents = False
If Target.Count = 1 Then
If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
If Target.Row > 3 Then
If Len(Target) >= 2 And Len(Target) <= 3 Then
BLG = Left(Cells(Range("A2").End(xlDown).Row, "B"), 4)
Target.NumberFormat = "General"
Target = BLG & Target
End If: End If: End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Target.NumberFormat = "@"
End If
Application.EnableEvents = True
End Sub

 

[sensizsoldum]

Merhaba Asi Bey, Kodları denedim. Bu kodlar sanırım. B3:B aralığını hücre biçimlendir menüsünden metin olarak seçilmiyor. Hücre biçimlendir menüsünden yaptığım biçimle ile aynı sorunla karşılaşıyorum. Makro ile yazdığım rakamın çıkmasını sağlamak mümkün olabilir mi. Ben belki olabilir düşüncesiyle bunları aktarıyorum. Tabiki sizler excelin çalışma sistemini iyi bilenlerdensiniz.

 

[asi_kral]

Siz hücre formatı ile oynamayın sadece rakamı girin gerisini koda bırakın