telefon numarası oluşturma 2 kez yazılmış veri sayfa 2 de tek kez görme.YARDIM...

[vimpir]

bilgi sekmesindeki A B H I J K L sutunlarında yazılı bilgilerin sayfa 2 (müşteri telefon numaraları)na aktarılmasını istiyorum.2 kez Müşteri telefon numarası bilgi sutununa yazıldığına müşteri telefon numarası sekmesinde 1 kez kez yazılmış olmasını istiyorum. Makrolarla yapmamız müm kün mü? örnek te daha iyi anlamış olabilrsiniz yardımlarınız için şimdiden teşekkür ederim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butonla ilişkilendirerek dener misiniz?

Sub Aktar()
    Dim sb      As Worksheet
    Dim sm      As Worksheet
    Dim i       As Long
    Dim SonSat  As Long
    Dim Bul     As Range
    Dim Adet    As Integer
    
    Set sb = Sheets("bilgi")
    Set sm = Sheets("müşteri telefon numaraları")
    
    For i = 2 To sb.Cells(Rows.Count, "A").End(3).Row
        Set Bul = sm.Range("A:A").Find(sb.Cells(i, "A"), LookIn:=xlValues)
        If Bul Is Nothing Then
            'Kayıt bulumnmadığı için aktarılacak
            SonSat = sm.Cells(Rows.Count, "A").End(3).Row + 1
            Adet = Adet + 1
            sm.Cells(SonSat, "A") = sb.Cells(i, "A")
            sm.Cells(SonSat, "B") = sb.Cells(i, "B")
            sm.Cells(SonSat, "C") = sb.Cells(i, "H")
            sm.Cells(SonSat, "D") = sb.Cells(i, "I")
            sm.Cells(SonSat, "E") = sb.Cells(i, "J")
            sm.Cells(SonSat, "F") = sb.Cells(i, "K")
            sm.Cells(SonSat, "G") = sb.Cells(i, "L")
        End If
    Next i
    
    If Adet > 0 Then
        MsgBox Adet & " Adet Kayıt Aktardım...."
    Else
        MsgBox "Aktarılacak Kayıt Bulamadım....."
    End If
End Sub

 

[vimpir]

Merhaba,

Aşağıdaki kodları bir butonla ilişkilendirerek dener misiniz?

Sub Aktar()
    Dim sb      As Worksheet
    Dim sm      As Worksheet
    Dim i       As Long
    Dim SonSat  As Long
    Dim Bul     As Range
    Dim Adet    As Integer
    
    Set sb = Sheets("bilgi")
    Set sm = Sheets("müşteri telefon numaraları")
    
    For i = 2 To sb.Cells(Rows.Count, "A").End(3).Row
        Set Bul = sm.Range("A:A").Find(sb.Cells(i, "A"), LookIn:=xlValues)
        If Bul Is Nothing Then
            'Kayıt bulumnmadığı için aktarılacak
            SonSat = sm.Cells(Rows.Count, "A").End(3).Row + 1
            Adet = Adet + 1
            sm.Cells(SonSat, "A") = sb.Cells(i, "A")
            sm.Cells(SonSat, "B") = sb.Cells(i, "B")
            sm.Cells(SonSat, "C") = sb.Cells(i, "H")
            sm.Cells(SonSat, "D") = sb.Cells(i, "I")
            sm.Cells(SonSat, "E") = sb.Cells(i, "J")
            sm.Cells(SonSat, "F") = sb.Cells(i, "K")
            sm.Cells(SonSat, "G") = sb.Cells(i, "L")
        End If
    Next i
    
    If Adet > 0 Then
        MsgBox Adet & " Adet Kayıt Aktardım...."
    Else
        MsgBox "Aktarılacak Kayıt Bulamadım....."
    End If
End Sub

MERHABA
eline sağlık verdiğiniz bilgi için ancak YOLLADIĞINIZ KODDA cep tel 2 VE sabit te 1 deki değişikliği algılayıp tel numarası sekmesine onuda atması lazım tekrar örneğimi yeniliyorum şimdi BİR DEĞİŞİKLİK DAHA YAPTIM ÖRNEĞİ DAHA İYİ ANLATABİLME ADINA TEŞEKKÜR EDERİM...

 

[Necdet]

2 kez Müşteri telefon numarası bilgi sutununa yazıldığına müşteri telefon numarası sekmesinde 1 kez kez yazılmış olmasını istiyorum.

Sanırım fikir değiştirdiniz.

 

[vimpir]

Sanırım fikir değiştirdiniz.

Aslında fikir değiştirmedim ilk istediğim örneğe bakarsanız tel defteri aynı sadece 3. bir sayfa ekledim onuda yapamadım . yardımınızı istedim.bu program çalıştıgım şikette müşteri kaydı için lazım bu tür kodlarla geliştiriyorum sigorta acentelerinde kullanılanılar çapraz satış yapılabilecek geniş bi program hazırlıyorum açtıgım konulara bakarsanız kısım kısım tamamlıyorum ve elimden gelen kodlarıda kullanıyorum tabii tabi bittiginde bu aldığım kodları tamamlanmış olarak bu siteden yayınlıyacam ki acente takip programı adında birçok sigorta acentelerinde bu tür kayhıt programına ihityaç var en azından yeni açılmış acenteler müşteri pörtföylerini bu programdan yönetebilecekler... bu konudaki çalışmama yardımcı olursanız sevinirim teşekkür ederim....

 

[Necdet]

Merhaba,

Ben sizi tam anlayamadım. Sorunuza bakıyorum anladım diyorum, örnek dosyanıza bakıyorum çuvallıyorum.

Umarım bir arkadaşım olayı anlar ve çözer.

Telefon numarasında değişen bilgiler aktarılacak diye anlıyorum yine olmuyor

 

[vimpir]

Merhaba,

Ben sizi tam anlayamadım. Sorunuza bakıyorum anladım diyorum, örnek dosyanıza bakıyorum çuvallıyorum.

Umarım bir arkadaşım olayı anlar ve çözer.

Telefon numarasında değişen bilgiler aktarılacak diye anlıyorum yine olmuyor

bana yolladığınız kodlama üzerinde ne istediğimi anlatmaya çalıştım bir bakarsanız yardımcı olursanız sevinirim...

 

[Necdet]

Özür dilerim, hâlââ anlamadım anlamıyorum.

Sizin verdiğiniz örnekte Sabit Tel1 neden 6 oluyor? 2121234567 olması gerekmiyor mu?

 

[vimpir]

Özür dilerim, hâlââ anlamadım anlamıyorum.

Sizin verdiğiniz örnekte Sabit Tel1 neden 6 oluyor? 2121234567 olması gerekmiyor mu?

evet şimdi anladım örneği ben yanlış yapmışım özür dilerim...
burdaki örnek müşteri birinci geldiğinde cep numarasını verdiğini varsayıyoruz ikinci geldiğinde başka bir cep telefonu verdiğini var sayıyoruz 3. geldiğinde sabit telefonu verdiğini var sayıyoruz. tekradan verdiğim örneği geliştirip doğru bir şekilde yazıyorum örnege bakarsanız daha iyi anlatmaya çalışıcam.. teşekkür ederim....

 

[Necdet]

Yanlış soru ve 9 gereksiz yazışma
hiç gerek yoktu bu kadar yazışmaya

 

[vimpir]

Yanlış soru ve 9 gereksiz yazışma
hiç gerek yoktu bu kadar yazışmaya

<Haklısın walla... sorunumu en sonunda kavraya bildin mi? yardım edebilcekmisin...???