• DİKKAT

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

Sorgu için arama sonuçları: instr

  1. Korhan Ayhan

    Combobox içerisine sadece sayı girişi olunca veri aktarmıyor

    ....ListCount) .DropDown If Len(.Text) Then For i = .ListCount - 1 To 0 Step -1 If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i Next .DropDown Me.Repaint End If...
  2. N

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ustad çok sağolasın istediğim buydu teşekürr ederim allah razı olsun...
  3. M

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ...= True Exit Sub End If For i = 0 To Me.ListBox3.ListCount - 1 s = Trim$(CStr(Me.ListBox3.List(i, 7))) If InStr(1, s, "denemelerx", vbTextCompare) > 0 Then found = True Exit For End If Next i...
  4. N

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ustad hakkınızı helal edin valla ben tam anlatamadım listbox içinde denemelerx yazan varsa her zaman command1 pasif olcak denemelerx yazmıyorsa listbox ta her zaman aktif olcak.
  5. M

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ...Exit Sub End If s = Trim$(CStr(Me.ListBox3.List(Me.ListBox3.ListIndex, 7))) Me.TextBox2.Value = s If s = "" Or InStr(1, s, "denemelerx", vbTextCompare) > 0 Then Me.CommandButton1.Enabled = False Else Me.CommandButton1.Enabled = True End If...
  6. N

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ustad bu kod denemelerx yazıyorsa tıkladığımda pasif yapıyor boş ise aktif yapıyor tam tersini nasıl yapıcam kod tarafında false true yerlerini değiştirdim olmuyor...
  7. M

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ...= False Exit Sub End If s = CStr(Me.ListBox3.List(Me.ListBox3.ListIndex, 7)) Me.TextBox2.Value = s If InStr(1, s, "denemelerx", vbTextCompare) > 0 Then Me.CommandButton1.Visible = False Else Me.CommandButton1.Visible = True End If End...
  8. N

    listbox içinde geçen kelime ye göre buton pasif yapmak

    bu çalışıyor hocam yanlız tam tersi olcak uygulama denemelerx geçiyorsa pasif olcak geçmiyorsa aktif olcak.
  9. M

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ...= False Exit Sub End If s = CStr(Me.ListBox3.List(Me.ListBox3.ListIndex, 7)) Me.TextBox2.Value = s If InStr(1, s, "denemelerx", vbTextCompare) > 0 Then Me.CommandButton1.Visible = False Else Me.CommandButton1.Visible = True End If End...
  10. N

    listbox içinde geçen kelime ye göre buton pasif yapmak

    üstad merhaba denedim fakat hata aldım ya Private Sub UpdateButtonsFromListBox() module olarak ekledim yazdım çalıştırdım fakat listbox tıkladığımda yada çift tıkladığımda UpdateButtonsFromListBox buraya gidiyor kalıyor hata bunu bulamıyor farklı userform var makroda bunuda belirtmek lazım...
  11. M

    listbox içinde geçen kelime ye göre buton pasif yapmak

    ...= False Exit Sub End If s = CStr(ListBox3.List(ListBox3.ListIndex, 7)) TextBox2.Value = s If InStr(1, s, "denemelerx", vbTextCompare) > 0 Then CommandButton1.Visible = False Else CommandButton1.Visible = True End If...
  12. veyselemre

    ALT + ENTER içeren hücredeki veriyi sütunlara ayrıştırmak

    ...GoTo devam al = Replace(al, "Değer ", "Değer") veri = Split(al, Chr(10)) For Each elem In veri kSira = InStr(elem, "Değer") If kSira > 0 Then elem = "Değer" & Trim(Replace(Mid(elem, kSira), "Değer", "")) Set m =...
  13. Feylosof

    İki Sütun Verilerini Karşılaştırma

    Eyvallah Allah razı olsun. Emeğinize ve zihninize sağlık
  14. M

    İki Sütun Verilerini Karşılaştırma

    ...vbInformation, "Kontrol Sonucu" End If End Sub Public Function NormalizeName(ByVal s As String) As String s = Trim(s) Do While InStr(s, " ") > 0 s = Replace(s, " ", " ") Loop NormalizeName = s End Function UserForm’daki butonun Click olayına:"Sheet1" yerine...
  15. M

    İki Sütun Verilerini Karşılaştırma

    ...Application.EnableEvents = True End Sub Private Function NormalizeName(ByVal s As String) As String s = Trim(s) Do While InStr(s, " ") > 0 s = Replace(s, " ", " ") Loop NormalizeName = s End Function C sütununa bir öğretmen adı yazıldığında (veya...
  16. H

    Combobox a yazılana göre uyanları listeleme

    ..."A").End(xlUp).Row eskiText = ComboBox1.Text aranan = LCase(eskiText) ComboBox1.Clear For i = 2 To sonSatir If InStr(LCase(ws.Cells(i, "A").Value), aranan) > 0 Then ComboBox1.AddItem ws.Cells(i, "A").Value ComboBox1.List(ComboBox1.ListCount -...
  17. Y

    Combobox a yazılana göre uyanları listeleme

    dönüş yaptığınız için çok teşekkür ederim ancak baka bildim bu aralar eşimin rahatsızlığından dolayı girip bakamadım dosyayı paylaşıyorum akarsanız sevinirim birden fazla sıkıntı var baş harfi yazdınmı o harf içeren tüm liste açılıyor ve birdaha işlem yapmıyor birde listeden isim seçince...
  18. H

    Combobox a yazılana göre uyanları listeleme

    ...sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row aranan = LCase(ComboBox1.Text) ComboBox1.Clear For i = 2 To sonSatir If InStr(LCase(ws.Cells(i, "A").Value), aranan) > 0 Then ComboBox1.AddItem ws.Cells(i, "A").Value ComboBox1.List(ComboBox1.ListCount - 1, 1) = ws.Cells(i, "B").Value...
  19. ulutanas

    Çözüldü Veri getirme

    ...ProsesBul(kod As String) As String kod = UCase(kod) If Left(kod, 4) = "1001" Then ProsesBul = "Enjeksiyon" ElseIf InStr(kod, "PF") > 0 Then ProsesBul = "Preform" ElseIf InStr(kod, "PK") > 0 Or InStr(kod, "CS") > 0 Or InStr(kod, "P") > 0 Then...
  20. cavanoos

    Çözüldü Kod İsteği

    ...outData(1 To UBound(srcData), 1 To 13) cnt = 0 For i = 2 To UBound(srcData) If (srcData(i, 2) Like "Pİ*" Or srcData(i, 2) Like "Tİ*") _ And InStr(1, srcData(i, 4), "YANLIŞ", vbTextCompare) = 0 Then cnt = cnt + 1 outData(cnt, 1) = srcData(i, 5)...
Üst