[Yardım]  Telefon Numaralarının Başına +90 Eklenmesi

VBE penceresindeki menüler ve işleyiş

Telefon Numaralarının Başına +90 Eklenmesi

İleti#1)  Levent145 » 24 Oca 2021 11:39

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.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 28
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Telefon Numaralarının Başına +90 Eklenmesi

İleti#2)  Miraç CAN » 24 Oca 2021 12:27

Kod: Tümünü seç
Sub Msj()
Dim Rng As Range
For Each Rng In Range("K2:L" & Cells(Rows.Count, 11).End(3).Row)
    Rng(1, -9).NumberFormat = "@"
    Rng(1, -9).Value = IIf(Rng.Column = 11, "+90" & Replace(Rng, " ", ""), Rng)
Next Rng
End Sub
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 40
İleti: 1012
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Telefon Numaralarının Başına +90 Eklenmesi

İleti#3)  Levent145 » 24 Oca 2021 17:06

Hocam emeğinize sağlık ama k2 k aralığında hiç numara yoksa A2 A aralığına ve b2 b aralığına bir şey yazma olarak kodu 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
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 28
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Telefon Numaralarının Başına +90 Eklenmesi

İleti#4)  Miraç CAN » 25 Oca 2021 07:44

Sub Msj() satırından sonra If [K2] = "" Then Exit Sub ekleyin
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 40
İleti: 1012
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Telefon Numaralarının Başına +90 Eklenmesi

İleti#5)  Levent145 » 25 Oca 2021 20:45

Hocam çok teşekkür ederim .
Kod sorunsuz çalışıyor
Emeğinize sağlık
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 28
İleti: 98
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara


Forum VBE Penceresi

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe