Benzer İsimler ve Titreme

ofbalki · 5 Aralık 2007

Sayın ustalarım, gönderdiğim programda,

Listeye tıkladığımızda, benzer isimlerden sadece en üsttekini buluyor, diğerlerini bulamıyor.

Raporlamalar formunu açarken de, isim çok olduğundan herhalde, yaklaşık olarak 1 dk. titredikten sonra açılıyor.

1- Benzer isimlerin hepsini buldurabilir miyiz?

2- Raporlamalar formunu hemen açtırabilir miyiz? (Çözüldü, yeni hali ektedir)

isfa5878 · 6 Aralık 2007

dosyanız da anormallik var...
dosya veya bilgisayarınız da virüs olabilir mi ?
görev yapmayan ve yaparken zorlandıran (VBA harici veya ileri düzeyde olduğundan görünmeyen) kodlar var.....

Levent Menteşoğlu · 6 Aralık 2007

2. sorunuz için raporlamalar userformunuzun initialize olayındaki kodları aşağıdaki ile değiştirin.

Kod:

Private Sub UserForm_Initialize()
  'En &#252;stteki 3 sat&#305;rl&#305;k kodla birlikte, formda &#231;arp&#305;n&#305;n kaybolmas&#305;n&#305; sa&#287;lar.
Dim hWnd As Long
  hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
Sheets("veri").Select
Set s1 = Sheets("veri")
Liste.RowSource = "veri!b2:b" & s1.[b65536].End(3).Row
For A = 2 To [c65536].End(3).Row 'kurumuna g&#246;re
If WorksheetFunction.CountIf(s1.Range("E2:E" & A), s1.Cells(A, "E")) = 1 Then Kurumu.AddItem s1.Cells(A, "E")
If s1.Cells(A, "K") <> "" And WorksheetFunction.CountIf(s1.Range("K2:K" & A), s1.Cells(A, "K")) = 1 Then KanGrubu.AddItem s1.Cells(A, "K")
If s1.Cells(A, "L") <> "" And WorksheetFunction.CountIf(s1.Range("L2:L" & A), s1.Cells(A, "L")) = 1 Then Cinsiyeti.AddItem s1.Cells(A, "L")
If s1.Cells(A, "F") <> "" And WorksheetFunction.CountIf(s1.Range("F2:F" & A), s1.Cells(A, "F")) = 1 Then KurumdakiG&#246;revi.AddItem s1.Cells(A, "F")
If s1.Cells(A, "G") <> "" And WorksheetFunction.CountIf(s1.Range("G2:G" & A), s1.Cells(A, "G")) = 1 Then Brans&#305;.AddItem s1.Cells(A, "G")
If s1.Cells(A, "N") <> "" And WorksheetFunction.CountIf(s1.Range("N2:N" & A), s1.Cells(A, "N")) = 1 Then Yetkisi.AddItem s1.Cells(A, "N")
If s1.Cells(A, "O") <> "" And WorksheetFunction.CountIf(s1.Range("O2:O" & A), s1.Cells(A, "O")) = 1 Then B&#246;lgesi.AddItem s1.Cells(A, "O")
Next
For A = 1 To 14
Controls("checkbox" & A).Caption = s1.Cells(1, A + 2) 'A + 1 veri B yi checkbox larda g&#246;sterir
Next
Liste.ListIndex = -1
End Sub

1. sorunuz için biraz daha açıklayıcı bilgi verin. Örneğin kasdettiğiniz hangi userform ve nesnedir.

ofbalki · 6 Aralık 2007

Sevgili Levent kardeşim, 2. sorumun cevabını aldım çok teşekkürler, elinize ve aklınıza sağlık.

1. soruya gelince;

Programda 2 tane "Ahmet ACAR" isimli kişi var. Bunlardan hangisini tıklarsak tıklayalım, UserForm ekranına listedeki ilk "Ahmet ACAR" isimli kişinin bilgileri geliyor. Sonuç olarak aynı isimden kaç kişi olursa olsun, hangisini tıklarsak tıklayalım, her durumda aynı isimden olanların 1.sinin bilgileri ekrana geliyor, UserFormdan diğerlerinin bilgilerine ulaşılamıyor.

Şimdiden Teşekkürler...

Levent Menteşoğlu · 19 Aralık 2007

Listboxtaki kodu aşağıdaki ile değiştirin.

Kod:

Private Sub ListBox1_Click()
On Error Resume Next
Sheets("veri").Select
Dim x As Integer
x = Sheets("veri").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
B.Value = ListBox1
B = Sheets("veri").Cells(x, 2)
sat = ListBox1.ListIndex + 2
A.Value = Cells(sat, "a")
C.Value = Cells(sat, "c")
D.Value = Cells(sat, "d")
E.Value = Cells(sat, "e")
F.Value = Cells(sat, "f")
G.Value = Cells(sat, "g")
H.Value = Cells(sat, "h")
I.Value = Cells(sat, "I")
J.Value = Cells(sat, "j")
K.Value = Cells(sat, "k")
L.Value = Cells(sat, "l")
M.Value = Cells(sat, "m")
N.Value = Cells(sat, "n")
O.Value = Cells(sat, "o")
P.Value = Cells(sat, "p")
Sheets("temel").Cells(1, "C") = B.Value 'Ad&#305; Soyad&#305;
Sheets("temel").Cells(2, "C") = C.Value 'Ad&#305;
Sheets("temel").Cells(3, "C") = D.Value 'Soyad&#305;
Sheets("temel").Cells(4, "C") = E.Value 'Sendika No
Sheets("temel").Cells(5, "C") = F.Value 'Kurumu
Sheets("temel").Cells(6, "C") = G.Value 'Kurumdaki G&#246;revi
Sheets("temel").Cells(7, "C") = H.Value 'Bran&#351;&#305;
Sheets("temel").Cells(8, "C") = I.Value 'Ev Telefonu
Sheets("temel").Cells(9, "C") = J.Value 'Cep Telefonu
Sheets("temel").Cells(10, "C") = K.Value 'Kurum Telefonu
Sheets("temel").Cells(11, "C") = L.Value 'Kan Grubu
Sheets("temel").Cells(12, "C") = M.Value 'Cinsiyeti
Sheets("temel").Cells(13, "C") = N.Value 'Mail Adresi
Sheets("temel").Cells(14, "C") = O.Value 'Sendika Yetkisi
Sheets("temel").Cells(15, "C") = P.Value 'B&#246;lgesi
    sil.Enabled = True
    degistirguncelle.Enabled = True
    kay&#305;t.Enabled = False
    ComboBox2.SetFocus
End Sub

ofbalki · 25 Aralık 2007

Ustam, güncellerken bi hata oluşuyor. Güncellediğimiz kişiyi ilk satıra alıyor ve sıra numarasını bozuyor.

Sanırım ufak bi tadilat gerekli. Programı çalıştırırsanız hatayı düzelteceğinizden eminim.

Ekli dosyada yeni hali mevcut.

Teşekkürler...

ofbalki · 7 Ocak 2008

Veri sayfasında bulma hatası veriyor.

Bu hata çözülürse programın tamamlanacağını tahmin ediyorum.

gulevurgun · 9 Ocak 2008

Arkadaşlar bu benim çok işime yarayacak ama görüntü konusunda değişiklik yapmak istiyorum fakat bilgim yok bunu benim için yapabilecek varsa yardımcı olmanızı isterim.Word olarak eklediğim şekilde olabilir mi?Yani demek istediğim raporla dediğimizde raporda görünen şekilin böyle olmasını ve bu haneleri girmemiz için gereken yerlerin açılması mümkünü yardımlarınız için şimdidedn teşekkür eder, iyi çalışmalar dilerim.

ofbalki · 9 Ocak 2008

Benim programdaki breysel sayfasını istediğiniz şekilde düzenleyebilirsiniz.

Kişiyi seçip, "Seçileni Raporla" düğmesine tıkladığınızda çıkar.

Tabii istediğiniz bilgilerin kayıttan düzeltilmesi şartıyla. VBA dan istediğiniz değişikliği yapabilirsiniz.

Levent Menteşoğlu · 9 Ocak 2008

Güncelle butonundaki kodu aşağıdaki ile değiştirerek deneyin.

Kod:

Private Sub degistirguncelle_Click()
On Error Resume Next
Sheets("veri").Select
    If A.Text = "s&#305;ra no" Then
    MsgBox "s&#305;ra no De&#287;eri de&#287;i&#351;tirilemez program taraf&#305;ndan kullan&#305;l&#305;yor...", , "De&#287;i&#351;tir Hatas&#305;!!!"
    Exit Sub
    End If
 
    If B.Value = "" Then
            MsgBox "&#214;nce arad&#305;&#287;&#305;n&#305;z veriyi BUL ile bulmal&#305;s&#305;n&#305;z"
            Exit Sub
        End If
 
 
     If MsgBox("" & B.Value & " isimli ki&#351;iye ait kay&#305;t  bilgileri de&#287;i&#351;tirilecek, emin misiniz?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
     If A = "" Or B = "" Then
        MsgBox "Ad&#305; Soyad&#305; listesinden bir Ki&#351;i se&#231;melisiniz"
    Else
    sat = ListBox1.ListIndex + 2
 
    Cells(sat, "b") = B.Value
    Cells(sat, "c") = C.Value
    Cells(sat, "d") = D.Value
    Cells(sat, "b") = E.Value
    Cells(sat, "e") = F.Value
    Cells(sat, "f") = G.Value
    Cells(sat, "g") = H.Value
    Cells(sat, "h") = I.Value
    Cells(sat, "I") = J.Value
    Cells(sat, "j") = K.Value
    Cells(sat, "k") = L.Value
    Cells(sat, "l") = M.Value
    Cells(sat, "m") = N.Value
    Cells(sat, "n") = O.Value
    Cells(sat, "o") = P.Value
    End If
    B.RowSource = "Veri!B1:B" & 1
    A.Value = WorksheetFunction.Count(Range("A1:A65500")) + 1
 
    ComboBox2.Value = "0"
MsgBox "" & B.Value & " isimli ki&#351;iye ait bilgiler de&#287;i&#351;tirilmi&#351;tir. &#304;yi &#231;al&#305;&#351;malar dilerim.", vbInformation, "Sendika Program&#305;"
    formutemizle_Click
    TextBox17 = Sheets("Sheet1").Range("A2").Value 'bayan
    TextBox18 = Sheets("Sheet1").Range("B2").Value 'erkek
    TextBox19 = Sheets("Sheet1").Range("C2").Value 'toplam
    ComboBox2.SetFocus
 
 End If
End Sub

ofbalki · 10 Ocak 2008

Ustam "önce aradığınız veriyi BUL ile bulmalısınız " uyarısı çıkıyor.

Listeyi tıkladığımızda ekrana getiriyor ama, galiba veri sayfasından bulamıyor.

Levent Menteşoğlu · 10 Ocak 2008

Kodu yeniledim tekrar deneyin.

ofbalki · 10 Ocak 2008

ustam bi sorun var galiba.

değiştirilmiş dosyayı ekledim bi bakarmısınız.

gulevurgun · 10 Ocak 2008

Kişisel Bilgi Formu

Benim tam olarak istediğim bu değil kendime uyarlamak istiyorum ama seçileni raporladaki şekil gibi olmamalı ve verileri yazdığım şekil biraz daha çok haneli olmalı örnek resmi ekliyorum raporda görmek istediğim şekil ve veriler.Yardımlarınız için teşekkür ederim

Levent Menteşoğlu · 10 Ocak 2008

Ekli dosyayı inceleyin.

gulevurgun · 10 Ocak 2008

gulevurgun' Alıntı:
Benim tam olarak istediğim bu değil kendime uyarlamak istiyorum ama seçileni raporladaki şekil gibi olmamalı ve verileri yazdığım şekil biraz daha çok haneli olmalı örnek resmi ekliyorum raporda görmek istediğim şekil ve veriler.Yardımlarınız için teşekkür ederim

Tekrar yazmak durumunda kaldım aynı anda gönderince açıklamam geride kaldı yardımlarını için teşekkür ederim.Ben bunu kişisel bilgi formunda kullanıcam bana göre uyarlayabilecek arkadaşların yardımlarını bekliyorum

ofbalki · 10 Ocak 2008

Ustam eline ve de aklına sağlık, teşekkürler...

Hızlı arama kısmına yazdığımız isimi de getirebilirmi yiz?

Kod değiştiği için tıklamadan sonra istedğimiz kişiyi getirmiyor, bide oraya bakabilirmiyiz.

Ustam kusura bakma sonradan farkettim, silme işlemini de yapmıyor.

ofbalki · 10 Ocak 2008

denerim.

gulevurgun' Alıntı:
Benim tam olarak istediğim bu değil kendime uyarlamak istiyorum ama seçileni raporladaki şekil gibi olmamalı ve verileri yazdığım şekil biraz daha çok haneli olmalı örnek resmi ekliyorum raporda görmek istediğim şekil ve veriler.Yardımlarınız için teşekkür ederim

Farkındaysanız şu anda Levent beyden yardım alıyorum, bi kaç gün sonra buraya eklemeye çalışırım.

Başka arkadaşlar ilgilenirse daha şık olur, forumun zenginliği açısından.

Levent Menteşoğlu · 10 Ocak 2008

15 nolu mesajımdaki dosyayı yeniledim. Tekrar inceleyin.

ofbalki · 10 Ocak 2008

Ustam eline ve de aklına sağlık, harika olmuş.

Ben 17 nolu mesajı, galiba siz çalışırken düzeltmişim.

Silme işleminde de bi kod değişikliği gerekli sanırım.

Bi de silme kodlarına bakabilirmiyiz.

Benzer İsimler ve Titreme

ofbalki

isfa5878

Banned

Levent Menteşoğlu

Administrator

ofbalki

Levent Menteşoğlu

Administrator

ofbalki

ofbalki

gulevurgun

ofbalki

Levent Menteşoğlu

Administrator

ofbalki

Levent Menteşoğlu

Administrator

ofbalki

gulevurgun

Levent Menteşoğlu

Administrator

gulevurgun

ofbalki

ofbalki

Levent Menteşoğlu

Administrator

ofbalki