Sorgu için arama sonuçları: instr

...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...

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...

mükerrer olanları yazmıyor yazması gerekir. bütün satırlarda yazması gerekir yazmıyor. örneğin 18,19,20,21,181....500 satırlara veri yazmıyor dosya ekte

...HValue = Cells(i, "H").Value found = False ' "-" işaretinden sonraki ilk kelimeyi al dashPosition = InStr(HValue, "-") If dashPosition > 0 Then kelime = Trim(Split(Mid(HValue, dashPosition + 1), " ")(0)) ' İlk kelimeyi al Else...

..."H").End(xlUp).Row HValue = Cells(i, "H").Value found = False ' "-" işaretinden sonraki kısmı al If InStr(HValue, "-") > 0 Then HAfterDash = Trim(Mid(HValue, InStr(HValue, "-") + 1)) Else HAfterDash = HValue ' "-" işareti...

...For Each Item In ThisComp.Items If InStr(LCase(Item.Path), "{6ac27878-a6fa-4155-ba85-f98f491d4f33}") Then Set RootFold = Item.GetFolder Exit For End If Next S0.[B:F] = Empty 1 For i = 1 To S0.[A100].End(3).Row 2 S0.[C:D] = Empty...

...Then Set AccSystemPane = vTemp For i& = 1& To AccSystemPane.accChildCount If InStr(1, AccSystemPane.accName(i&), PartialTabCaption, vbTextCompare) Then DoEvents If...

...xBit = LBound(dzPersonel): BaSon = -1 For xP = xBas To xBit Step BaSon 'UBound(dzPersonel) If (InStr(1, Evaluate("=lower(""" & dzPersonel(xP, 2) & """)"), Evaluate("=lower(""" & Gun(xMod) & """)")) > 0 Or _ InStr(1...

...Mod 7 If xMod > 1 Then xPerSr = 0: xMin = 100 For xP = 1 To UBound(dzPersonel) If (InStr(1, dzPersonel(xP, 2), Gun(xMod)) > 0 Or InStr(1, dzPersonel(xP, 2), "HAFTA") > 0) And dzPersonel(xP, 3) < xMin Then...

...kadar olan kısmı al segment = Mid(inputText, currentPosition, maxLength) ' Son kelimeyi bul spacePosition = InStrRev(segment, " ") If spacePosition > 0 Then ' Kelimeleri son kelimeden önce kes Range("B" &...

...As String formatString = cell.NumberFormatLocal Dim firstDotPosition As Long Dim secondDotPosition As Long firstDotPosition = InStr(1, formatString, ".") secondDotPosition = InStr(firstDotPosition + 1, formatString, ".") Dim beforeDotCharacter As String If...

...boş. Lütfen hücreyi doldurun." Exit Sub End If ' E-posta adresinin geçerli formatta olup olmadığını kontrol et If InStr(1, emailTo, "@") = 0 Or InStrRev(emailTo, ".") < InStr(1, emailTo, "@") Then MsgBox "Geçersiz e-posta adresi. Lütfen geçerli bir adres...