Soru Telefon Numaralarının Başına +90 Eklenmesi ve Mesajla Beraber Kopyalanması

[TURKOLOG]

Herkese Merhaba
Excelde Sayfa26 da
K2 den K son dolu satıra kadar 5xx 123 45 67 şeklinde numaralar var
L2 den L son dolu satıra kadar mesaj metni var

Benim istediğim
K2 den K son dolu satıra kadar 5XX 123 45 67 şeklinde numaraların her birinin başına +90 eklenerek
+905XX1234567 şeklinde A2 den başlayarak metin şeklinde yapıştırması
L2 den L son dolu satıra kadar mesaj metninin de B2 den başlayarak değerleri yapıştır şeklinde yapıştırması
A ve B sütunlarının hücre şeklinin metin olması
Yardım edebilecek olan varsa çok sevinirim.

 

[ÖmerFaruk]

Sub Yeni()
For i = 2 To Range("K2").End(xlDown).Row
    Range("A" & i) = "'+90" & Replace(Range("K" & i), " ", "")
    Range("B" & i) = Range("L" & i)
Next i
End Sub

For i=2 to

 

[sedat2161]

Sub Yeni()
For i = 2 To Range("K2").End(xlDown).Row
    Range("A" & i) = "'+90" & Replace(Range("K" & i), " ", "")
    Range("B" & i) = Range("L" & i)
Next i
End Sub

For i=2 to

Hocam hayırlı günler bu kod banada lazımdı kodu uyguladığımda aktarma yapıyor daha sonra donma oluyor. İşlem bitmiyor. Yardımcı olursanız çok memnun olurum.

 

[ÖmerFaruk]

Listeniz hangi aralıkta. Burada K sütununda o liste

 

[sedat2161]

Listeniz hangi aralıkta. Burada K sütununda o liste

Bende k ya göre ayarladım. Dosya ekte hocam

 

[ÖmerFaruk]

Sorun olmaması gerekir.
Dosyanız paylaşın bakalım

 

[sedat2161]

Sorun olmaması gerekir.
Dosyanız paylaşın bakalım

Hocam dosya ekte

 

[ÖmerFaruk]

Private Sub CommandButton2_Click()
satırını silersen çalışır

 

[sedat2161]

Private Sub CommandButton2_Click()
satırını silersen çalışır

Hocam yine olmadı. Bir deneyerek yapma imkanınız varsa yardımcı olursanız çok memnun olurum.

 

[ÖmerFaruk]

Sİz sadece K2 ye bir satır yazarsanız, excel kod gereği en alt satıra kadar işlem yapar. Yani 1.048.576 satıra kadar
İlgili satırı şu şekilde değiştirin.

For i = 2 To Range("K" & Rows.Count).End(xlUp).Row

 

[sedat2161]

Sİz sadece K2 ye bir satır yazarsanız, excel kod gereği en alt satıra kadar işlem yapar. Yani 1.048.576 satıra kadar
İlgili satırı şu şekilde değiştirin.

For i = 2 To Range("K" & Rows.Count).End(xlUp).Row

Hocam tamamdır emeğinize sağlık.

 

[sedat2161]

Hocam tamamdır emeğinize sağlık.

Hocam bir sorum daha olacaktı. L sütunundaki mesaj b sütununa aktarılıyor L-M-N sütununa yazdığım bilgileri bu kod ile birlikte B sütununa birleşik aktarabilir miyiz acaba

 

[ÖmerFaruk]

Range("B" & i) = Range("L" & i) & " " & Range("M" & i) & " " & Range("N" & i)
Bu satırı nu şekilde değiştirin.

Ancak ilginç olan konu. 476.mesaj demek, oldukça haşır neşir olduğunuz excel ve VBA konusunda bu tür basit işleri kendi başınıza rahatlıkla yapabiliyor olmanız anlamına gelmesi gerekirdi

 

[sedat2161]

Range("B" & i) = Range("L" & i) & " " & Range("M" & i) & " " & Range("N" & i)
Bu satırı nu şekilde değiştirin.

Ancak ilginç olan konu. 476.mesaj demek, oldukça haşır neşir olduğunuz excel ve VBA konusunda bu tür basit işleri kendi başınıza rahatlıkla yapabiliyor olmanız anlamına gelmesi gerekirdi

İnanın hocam kodlar hakkında hiç bir bilgim yok. Excelide kendi kendime öğrendim. Hiç bir ders almadım. Bu forumda soru sorarak çok şeyi öğrendim. Ama kod yazma okuma hiç bir bilgim yok araştırma yapıyorum uyarlama yapabilsem uyarlıyorum. Yoksa sizin gibi yardımsever hocalarımızdan yardım alarak uygulama yapıyorum.

 

[sedat2161]

İnanın hocam kodlar hakkında hiç bir bilgim yok. Excelide kendi kendime öğrendim. Hiç bir ders almadım. Bu forumda soru sorarak çok şeyi öğrendim. Ama kod yazma okuma hiç bir bilgim yok araştırma yapıyorum uyarlama yapabilsem uyarlıyorum. Yoksa sizin gibi yardımsever hocalarımızdan yardım alarak uygulama yapıyorum.

Hocam kodu uyarladı oldu. Çok teşekkür ederim.

 

[TURKOLOG]

Sub Yeni()
For i = 2 To Range("K2").End(xlDown).Row
    Range("A" & i) = "'+90" & Replace(Range("K" & i), " ", "")
    Range("B" & i) = Range("L" & i)
Next i
End Sub

For i=2 to

Sayın @NextLevel Hocam kod çalıştı elinize emeğinize sağlık. Çok teşekkür ederim.

 

[TURKOLOG]

Sayın @NextLevel Hocam kod çalıştı elinize emeğinize sağlık. Çok teşekkür ederim.

Sayın @NextLevel Hocam kodu k2 k aralığında hiç numara yoksa A2 A aralığına ve b2 b aralığına bir şey yazma olarak revize etsek.
Bu hali ile k2 k aralığı boş olduğunda A2 A aralığının sonuna kadar sadece +90 yazıyor ve çalışma kitabı donuyor.
Hocam kodu bu şekilde revize edebilir miyiz acaba

Sub Yeni()
For i = 2 To Range("K2").End(xlDown).Row
    Range("A" & i) = "'+90" & Replace(Range("K" & i), " ", "")
    Range("B" & i) = Range("L" & i)
Next i
End Sub

 

[ÖmerFaruk]

Sub Yeni()
For i = 2 To Range("K2").End(xlDown).Row
    if Range("K" & i)="" Then Goto Devam
    Range("A" & i) = "'+90" & Replace(Range("K" & i), " ", "")
    Range("B" & i) = Range("L" & i)
Devam:
Next i
End Sub

 

[TURKOLOG]

Sub Yeni()
For i = 2 To Range("K2").End(xlDown).Row
    if Range("K" & i)="" Then Goto Devam
    Range("A" & i) = "'+90" & Replace(Range("K" & i), " ", "")
    Range("B" & i) = Range("L" & i)
Devam:
Next i
End Sub

Hocam elinize emeğinize sağlık. Çok teşekkür ederim.

 

[TURKOLOG]

Sub Yeni()
For i = 2 To Range("K2").End(xlDown).Row
    if Range("K" & i)="" Then Goto Devam
    Range("A" & i) = "'+90" & Replace(Range("K" & i), " ", "")
    Range("B" & i) = Range("L" & i)
Devam:
Next i
End Sub

Sayın @NextLevel Hocam
Telefon numarası (5XX) 123 45 67 şeklinde olanlar da var
A Sütununa +90(5XX)1234567 şeklinde gelince mesaj gitmiyor ( ) açma ve kapama ayracı olan satırları A sütununa ayracsiz alma imkanı var mı Hocsm