MISSING'le başlayan tüm kutulardaki onayı kaldırsam hata giderilir mi?

[kenan_uo]

Arkadaşlar makro da kod yazmaya yeni başladım.öğrenmek amacıyla çalıştıştığım iş yerindeki arkadaşıma bi servis formu oluşturdum.bir iki problemle karşılaştım yardımıcı olurmusunuz
ilk problemim müşteri ara kısmında müşteri ara kısmındaki combobox ile seçtiğim muşteri numarasını textboxlara dökmesi gerekiyor evimde ki bilgisayarımda bu işlem oluyor fakat iş yerimde ki bilgisayarda yapamadım hata veriyor.
ikinci problemim
mesela label11.caption =format (date) evde yazdığımda hata vermiyor çalışıyor iş yerimde ki bilgisayarda hata veriyor.

üçüncü problemim combobox ile yaptığım arama ve textboxlara yazdırma işlemini textboxla yapabilirmiyim. yardımlarınızı bekliyorum aşırı heves yaptım öğrenme konusunda.

 

[fedeal]

Selam visual basic sayfasında tools-references-açılan sekmede MISSING'le başlayan tüm kutulardaki onayı kaldırın. tahminim bundan kaynaklanıyor.(iş yerinizdeki makinada)

 

[kenan_uo]

Selam visual basic sayfasında tools-references-açılan sekmede MISSING'le başlayan tüm kutulardaki onayı kaldırın. tahminim bundan kaynaklanıyor.(iş yerinizdeki makinada)

Süpersiniz evet oldu.bir taşla iki kuş sadece 3ncü problemim kaldı. userform4 e 1 adet daha textbox ekleyip arama yaptırıp değerleri diğer textboxlara kaydırmayı beceremedim .Fedeal yardımınız için teşekkür ederim.

 

[fedeal]

3. sorunuzu tam anlamadım textbox oluşturup onunla arama yapmak istiyorsanız yaptım.inceleyin en üstteki textboxa 1 yazın istediginiz bumu?

Private Sub TextBox12_Change()
    Set c = Sheets("DATA").Range("a1:a65000").Find(TextBox12.Text, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
[COLOR="Red"]    For i = 1 To 11
    Controls("TextBox" & i).Value = Sheets("DATA").Cells(c.Row, i + 1)
Next[/COLOR]
End If
End Sub

bu arda kırmızı kodlarda for döngüsüyle kodları kısalttık normali

TextBox1 = Cells(j, 2)
TextBox2 = Cells(j, 3)
TextBox3 = Cells(j, 4)
TextBox4 = Cells(j, 5)
TextBox5 = Cells(j, 6)
TextBox6 = Cells(j, 7)
TextBox7 = Cells(j, 8)
TextBox8 = Cells(j, 9)
TextBox9 = Cells(j, 10)
TextBox10 = Cells(j, 11)
TextBox11 = Cells(j, 12)
TextBox12 = Cells(j, 13)

böyle olcaktı. çalışmalarınız boyut olarak ufalıp daha verimli olacak.saygılar.

 

[kenan_uo]

istediği tam olarak şöyle textbox12 ye yazdığımda d sütunundaki isimler arasından dulup comboboxtaki gibi textboxlara doldurmak.comboboxta iş planı nosunu seçtiğimde o numaraya ait olan bilgileri textboxlara doldurması

 

[fedeal]

Private Sub TextBox12_Change()
    Set c = Sheets("DATA").Range("[COLOR="Red"]d[/COLOR]1:[COLOR="red"]d[/COLOR]65000").Find(TextBox12.Text, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
    For i = 1 To 11
    Controls("TextBox" & i).Value = Sheets("DATA").Cells(c.Row, i + 1)
Next
End If
End Sub

kırmızı kelimeleri d yapınca istediginiz olacaktır.

 

[kenan_uo]

pardon Tam olarak İstediğimi yapmışşınız zaten elinize kolunuza saglık.

 

[fedeal]

Private Sub TextBox12_Change()
[COLOR="Red"]fd = Replace(Replace(TextBox12.Value, "i", "İ"), "ı", "I")[/COLOR]
    Set c = Sheets("DATA").Range("d1:d65000").Find(fd, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
    For i = 1 To 11
    Controls("TextBox" & i).Value = Sheets("DATA").Cells(c.Row, i + 1)
Next
Else
    For i = 1 To 11
    Controls("TextBox" & i).Value = ""
Next
End If
End Sub

kırmızı satırla küçük büyük harf problemi olmaz aramalarda,böyle daha kullanışlı,saygılar.

 

[kenan_uo]

yardımlarınız için teşekkür ederim fedeal

 

[kenan_uo]

arakdaşlar yeni kullanıcı kayıt kısmında takıldım yardım edebilirmisiniz

takvime tıkladığımda solundaki textboxlara tıkladığım tarihi yazıyor sıkıntım

ay gün yıl olarak yazıyor benim istediğim gün ay yıl olarak yazması bu işlemi

nasıl yapabilirim.birde yavaşladı nasıl hızlandırabilirim daha veri girmeye bile başlamadım