Sorgu için arama sonuçları: instr

...& sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",") veya Private Sub txtQuantity_Change() If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value = Replace(txtQuantity, ".", ",") End If txtQuantity.Value =...

...Id= " & sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value = vbNull(rst!Miktar) Private Sub txtQuantity_Change() If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value = Replace(txtQuantity, ".", ",") Me.txtQuantity = Format(txtQuantity.Value, "#,##0") End...

...Sub AL() Application.ScreenUpdating = False For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row 'xlUp kullanmak daha doğru olur If InStr(Cells(i, 1).Value, "-") > 0 Then 'Tire olup olmadığını kontrol et Cells(i, 2).Value = Split(Cells(i, 1).Value, "-")(1) 'Tireyi...

...As Variant ' $ işaretlerini kaldırarak adresi al DeleteAddress = Target.Address(False, False) ' Eğer adres "5:5" If InStr(DeleteAddress, ":") > 0 Then ' Satır aralığını belirle StartRow = Target.Row EndRow = Target.Rows(Target.Rows.Count).Row...

...xmlhttp.Open "GET", url, False xmlhttp.Send jsonResponse = xmlhttp.responseText startPos = InStr(jsonResponse, """datetime"":""") + Len("""datetime"":""") endPos = InStr(startPos, jsonResponse, """") datetimeString = Mid(jsonResponse, startPos, endPos - startPos)...

...da modül ekleyip bu kodu yazın ve kendinize göre düzeltin ekleyin istediğiniz kriterleri Function Kontrol(Aciklama As String) As String If InStr(1, Aciklama, "Q", vbTextCompare) > 0 And InStr(1, Aciklama, "mavi", vbTextCompare) > 0 Then Kontrol = "MAVİ-YUVARLAK" ElseIf...

Tarih kısmına 02022024 şeklinde yazınca tarih 10.02.7436 oluyor. yoğun giriş yapıldığı için tarih arasına nokta v.b koymak zaman alıyor. Ayrıca 11122024 şeklince yazınca da hata veriyor

...Sutun) End With ElseIf Not Intersect(Target, Range("C:C")) Is Nothing Then If Len(Target) = 8 Then If InStr(Target, ".") = 0 Then Target = FormatDateTime(Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4), vbShortDate) ElseIf Len(Target)...

...If Target.Count > 1 Then Exit Sub Set blg = Range("c:c") If Intersect(Target, blg) Is Nothing Then Exit Sub If Len(Target) = 8 Then If InStr(Target, ".") = 0 Then Target = Format(Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4), "dd/mm/yyyy;@") ElseIf Len(Target) = 7 Then...

...1).End(xlUp).Row bSatiri = 1 cSatiri = 1 For i = 1 To sonSatir metin = Cells(i, 1).Value plusPos = InStr(metin, "Adt: +") minusPos = InStr(metin, "Adt: -") ' + ile başlayan sayısal değeri bul ve B sütununa aktar If plusPos > 0...

Bu kodda tek satırı boyuyuor hocam

...= xlNone For j = 1 To 17 found = False For i = LBound(kelimeler) To UBound(kelimeler) If InStr(1, Cells(a, j).Value, kelimeler(i), vbTextCompare) > 0 Then Cells(a, j).Interior.ColorIndex = renkler(i) found = True...

Hocam çok teşekkür ederim işime çok yaradı. Ancak atladığım küçük bir ayrıntı var; useform açık iken ekcel gizli olduğu için sadece mesaj kutusunu öne çıkarıyor ama userform yine simgede duruyor. Yani işlem bittikten sonra tüm pencereleri simgeye indirirken userformu da simgeye indiriyor.

...As String * 255 Dim title As String If IsWindowVisible(hWnd) Then GetWindowText hWnd, buf, Len(buf) title = Left$(buf, InStr(buf, vbNullChar) - 1) If title <> "" And Not title Like "*Excel*" Then ShowWindow hWnd, SW_MINIMIZE End If End...

...X = CreateObject("MSXML2.XMLHTTP") Link = "https://www.gib.gov.tr/node/178623/pdf" With X .Open "GET", Link, False .Send met = X.getResponseHeader("Content-Disposition") trh = Mid(met, InStr(1, met, ".pdf") - 10, 10) MsgBox trh End With End Sub

..."E").End(xlUp).Row For i = 1 To lastRow found = False Set cell = ws.Cells(i, "E") If InStr(1, cell.Value, "R") > 0 Or _ InStr(1, cell.Value, "RW") > 0 Or _ InStr(1, cell.Value, "C") > 0 Or _ InStr(1, cell.Value...

...2) To UBound(dataArr, 2) If Not IsEmpty(dataArr(1, i)) Then currentItem = CStr(dataArr(1, i)) If InStr(1, LCase(currentItem), searchValue) > 0 Or searchValue = "" Then If Not IsItemInArray(currentItem, selectedItems, countSelected) Then...

Aşağıda yer alan kod ile checkbox tıklandıkça işlem yapmak istiyorum ama listbox tıklamaları algılamıyor. Konu hakkında bilgisi olan var mı?

...As Integer last_row = S1.Range("A65536").End(xlUp).Row For r = 2 To last_row a = Len(Me.TextBox1.Text) If InStr(1, Left(upper_i(S1.Cells(r, kriter).Value), a), upper_i(Me.TextBox1.Text), vbTextCompare) Then With Me.ListBox1 .AddItem...

...As Integer last_row = S1.Range("A65536").End(xlUp).Row For r = 2 To last_row a = Len(Me.TextBox1.Text) If InStr(1, Left(upper_i(S1.Cells(r, kriter).Value), a), upper_i(Me.TextBox1.Text), vbTextCompare) Then With Me.ListBox1 .AddItem...