• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Telefon Rehberine Resim Ekleme

halit3' Alıntı:
Kod: 
TextBox1.Text = Format(TextBox1.Text, "0 (000) 000 00 00")

arama yaptım ve buldum aşağıdaki linklere bir bakınız.


http://www.excel.web.tr/search.php?searchid=1498278
Genişletmek için tıkla ...



teşekkürler hocam,

ana menü userformunda anatel1 texboxında bu kod un çalışmama sebebini bulamadım,

yeni kayıt user formunda çalışıyor halbuki,

veri girişi yapılamayan texboxlarda çalışmıyor anladığım kadarıyla,

bu güzel çalışmasından dolayı securıty arkadaşımızada ayrıca teşekkür ediyorum.
 

Ekli dosyalar

bunu deneyiniz.

Private Sub OptionButton2_Click()
Dim hucre As Range
Label9.Caption = "Telefon Rehberi Tüm Telefon Numaraları - 1 Kayıtları"
analist.Clear
For Each hucre In Range(Range("C3"), Range("C" & Sayfa1.[A1].Value + 2))
If hucre.Value <> "" Then analist.AddItem Format(hucre, "0 (000) 000 00 00")
Next hucre
bultxt = Empty
bultxt.SetFocus
End Sub
Private Sub OptionButton3_Click()
Dim hucre As Range
Label9.Caption = "Telefon Rehberi Tüm Telefon Numaraları - 2 Kayıtları"
analist.Clear
For Each hucre In Range(Range("D3"), Range("D" & Sayfa1.[A1].Value + 2))
If hucre.Value <> "" Then analist.AddItem Format(hucre, "0 (000) 000 00 00")
Next hucre
bultxt = Empty
bultxt.SetFocus
End Sub
Genişletmek için tıkla ...


Private Sub analist_Click()
Dim adet As Integer
bultxt.Value = ""
On Error Resume Next
If OptionButton1 = True Then
Range(Range("B3"), Range("B" & Sayfa1.[A1].Value + 2)).Select
Selection.Find(analist.Value, ActiveCell, , xlWhole).Activate
anaadi.Value = ActiveCell.Value
anatel1.Value = Format(ActiveCell.Offset(0, 1).Value, "0 (000) 000 00 00")
anatel2.Value = Format(ActiveCell.Offset(0, 2).Value, "0 (000) 000 00 00")
anadahili.Value = ActiveCell.Offset(0, 3).Value
anafaks.Value = ActiveCell.Offset(0, 4).Value
anacep.Value = ActiveCell.Offset(0, 5).Value
Anaadres.Value = ActiveCell.Offset(0, 6).Value
End If
If OptionButton2 = True Then
Range(Range("C3"), Range("C" & Sayfa1.[A1].Value + 2)).Select
Selection.Find(analist.Value, ActiveCell, , xlWhole).Activate
anaadi.Value = ActiveCell.Offset(0, -1).Value
anatel1.Value = Format(ActiveCell.Value, "0 (000) 000 00 00")
anatel2.Value = Format(ActiveCell.Offset(0, 1).Value, "0 (000) 000 00 00")
anadahili.Value = ActiveCell.Offset(0, 2).Value
anafaks.Value = ActiveCell.Offset(0, 3).Value
anacep.Value = ActiveCell.Offset(0, 4).Value
Anaadres.Value = ActiveCell.Offset(0, 5).Value
End If
If OptionButton3 = True Then
Range(Range("D3"), Range("D" & Sayfa1.[A1].Value + 2)).Select
Selection.Find(analist.Value, ActiveCell, , xlWhole).Activate
anaadi.Value = ActiveCell.Offset(0, -2).Value
anatel2.Value = Format(ActiveCell.Value, "0 (000) 000 00 00")
anatel1.Value = Format(ActiveCell.Offset(0, -1).Value, "0 (000) 000 00 00")
anadahili.Value = ActiveCell.Offset(0, 1).Value
anafaks.Value = ActiveCell.Offset(0, 2).Value
anacep.Value = ActiveCell.Offset(0, 3).Value
Anaadres.Value = ActiveCell.Offset(0, 4).Value
End If
If OptionButton4 = True Then
Range(Range("E3"), Range("E" & Sayfa1.[A1].Value + 2)).Select
Selection.Find(analist.Value, ActiveCell, , xlWhole).Activate
anaadi.Value = ActiveCell.Offset(0, -3).Value
anatel1.Value = Format(ActiveCell.Offset(0, -2).Value, "0 (000) 000 00 00")
anatel2.Value = Format(ActiveCell.Offset(0, -1).Value, "0 (000) 000 00 00")

anadahili.Value = ActiveCell.Value
anafaks.Value = ActiveCell.Offset(0, 1).Value
anacep.Value = ActiveCell.Offset(0, 2).Value
Anaadres.Value = ActiveCell.Offset(0, 3).Value
End If
If OptionButton5 = True Then
Range(Range("F3"), Range("F" & Sayfa1.[A1].Value + 2)).Select
Selection.Find(analist.Value, ActiveCell, , xlWhole).Activate
anaadi.Value = ActiveCell.Offset(0, -4).Value
anatel1.Value = Format(ActiveCell.Offset(0, -3).Value, "0 (000) 000 00 00")
anatel2.Value = Format(ActiveCell.Offset(0, -2).Value, "0 (000) 000 00 00")
anadahili.Value = ActiveCell.Offset(0, -1).Value
anafaks.Value = ActiveCell
anacep.Value = ActiveCell.Offset(0, 1).Value
Anaadres.Value = ActiveCell.Offset(0, 2).Value
End If
If OptionButton6 = True Then
Range(Range("G3"), Range("G" & Sayfa1.[A1].Value + 2)).Select
Selection.Find(analist.Value, ActiveCell, , xlWhole).Activate
anaadi.Value = ActiveCell.Offset(0, -5).Value
anatel1.Value = Format(ActiveCell.Offset(0, -4).Value, "0 (000) 000 00 00")
anatel2.Value = Format(ActiveCell.Offset(0, -3).Value, "0 (000) 000 00 00")

anadahili.Value = ActiveCell.Offset(0, -2).Value
anafaks.Value = ActiveCell.Offset(0, -1).Value
anacep.Value = ActiveCell
Anaadres.Value = ActiveCell.Offset(0, 1).Value
End If
RESIMLERIBUL_Click
End Sub
Genişletmek için tıkla ...
 
Arkadaşlar ama bu telefon rehberinde büyük küçük harf ayrımı var birde isim soyisim aramıyor yardımcı olurmusunuz?
 
halit bey teşekkürler kodu eklenmiş olarak dosyayı yükleyebilirmisniz. acemi olduğumuz için beceremiyoruz.
 
Bu yapılan rehbere resim ekleyemiyormuyuz siz formülü yazınca sorun çözüldü sanmıştım. yinede teşekkür ederim ilginiz için.
 
Sayın Halit3 beyefendi ayni isimli kayıt mutlaka olabilir bu durmda kayıt ve değişiklik yapmıyor bu sorunu çözebilirseniz sevinirim.
 
polis-53' Alıntı:
Sayın Halit3 beyefendi ayni isimli kayıt mutlaka olabilir bu durmda kayıt ve değişiklik yapmıyor bu sorunu çözebilirseniz sevinirim.
Genişletmek için tıkla ...

Bu konudaki dosyanın sahibi ben değilim ben sadece resim ekleme bölümüne kod yazdım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst