[Yardım]  Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağıtma

Kulanıcı arayüz formu

Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağıtma

İleti#1)  kanakan52 » 08 Ekm 2019 09:46

Merhabalar,

A sütunundaki sabit ve GSM numaralarını Textbox1 ve TextBox2 de ayırabilir miyiz ?

Sabit telefonlar TextBox1' e , GSM numaralarını TextBox2' ye almam lazım. Telefon numaraları 2122222222,5351111111 formatındadır.

Desteklerinizi rica ederim
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 15:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 36
İleti: 431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#2)  icemail » 08 Ekm 2019 11:56

Kod: Tümünü seç
sonhücre = Cells(1, 1).End(xlDown).Row

For i = 1 To sonhücre
    Hücredeğeri = Cells(i, 1).Value
    ilkkarakter = Left$(Hücredeğeri, 1)
        If ilkkarakter = "2" Then
            '"bunu yap"
        ElseIf ilkkarakter = "5" Then
            '"şunu yap"
        End If
Next
End Sub
Kullanıcı avatarı
icemail
Yeni Başlamış
 
Kayıt: 29 May 2015 09:56
Meslek: Diğer
Yaş: 36
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#3)  kanakan52 » 08 Ekm 2019 12:38

Merhaba Üstad,

Telefon numaraları ListBox 12. sütuna kadar getirdim, burdan textboxlara dağıtmam lazım..

Nasıl uyarlayabilirim.
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 15:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 36
İleti: 431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#4)  icemail » 08 Ekm 2019 19:23

Kod: Tümünü seç
Dim arr2 as variant, arr5 as variant

sonhücre = Cells(1, 1).End(xlDown).Row

For i = 1 To sonhücre
    Hücredeğeri = Cells(i, 1).Value
    ilkkarakter = Left$(Hücredeğeri, 1)
        If ilkkarakter = "2" Then
            arr2 = arr2 & Hücredeğeri
        ElseIf ilkkarakter = "5" Then
            arr5 = arr5 & Hücredeğeri
        End If
Next

TextBox2.Value = arr2
TextBox5.Value = arr5

End Sub
Kullanıcı avatarı
icemail
Yeni Başlamış
 
Kayıt: 29 May 2015 09:56
Meslek: Diğer
Yaş: 36
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

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

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#5)  kanakan52 » 09 Ekm 2019 09:27

Hocam Emekleriniz için teşekkür ederim ancak ben başaramadım..

Örnek dosyamı eklediyorum. Çözebilirseniz minnettar kalırım.

Yurtiçi dosyasındaki listbox ta yer alan telefon numaralarını exceldeki ilgili sütunlara dağıtmam lazım. Görsel de ilave ediyorum.

Yardımlarınızı rica ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 15:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 36
İleti: 431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#6)  icemail » 09 Ekm 2019 13:24

Kod: Tümünü seç
Sub telayır()

sonhücre = Cells(1, 6).End(xlDown).Row

For i = 2 To sonhücre
    Hücredeğeri = Cells(i, 6).Value
    ilkkarakter = Left$(Hücredeğeri, 1)
        If ilkkarakter = "2" Then
            Cells(i, 5).Value = Cells(i, 6).Value
            Cells(i, 6).Value = ""
        End If
Next

End Sub
Kullanıcı avatarı
icemail
Yeni Başlamış
 
Kayıt: 29 May 2015 09:56
Meslek: Diğer
Yaş: 36
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#7)  kanakan52 » 09 Ekm 2019 14:01

Teşekkürler,

Emeğinize sağlık. İyiki varsınız..
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 15:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 36
İleti: 431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#8)  icemail » 09 Ekm 2019 19:13

Kod: Tümünü seç
'Alternatif
Sub telayır()

'sonhücre = Cells(1, 6).End(xlDown).Row
sonhücre = Cells(Rows.Count, 6).End(xlUp).Row

For i = 2 To sonhücre
    Hücredeğeri = Cells(i, 6).Value
    ilkkarakter = Left$(Hücredeğeri, 1)
        If ilkkarakter = "2" Then
            Cells(i, 5).Value = Cells(i, 6).Value
            Cells(i, 6).Value = ""
        End If
Next

End Sub
Kullanıcı avatarı
icemail
Yeni Başlamış
 
Kayıt: 29 May 2015 09:56
Meslek: Diğer
Yaş: 36
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Aynı Sürundaki Telefon Numaralarını Textbox'lara Dağı

İleti#9)  kanakan52 » 10 Ekm 2019 09:22

Merhaba,

Bu çok daha güzel oldu emeğinize sağlık. Teşekkürlerimi sunuyorum.
Kullanıcı avatarı
kanakan52
Siteye Alışmış
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 15:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 36
İleti: 431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU


Forum UserForm

Online Kullanıcılar

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

Bumerang - Yazarkafe