Sorgu için arama sonuçları: instr

Worksheet_change kısmında 1 dediğimde; FormuzYaz isimli alt programı çağırıyorum. Bu kod satırı da orada -> : formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0) https://s6.dosya.tc/server17/81d2ta/formul.mp4.html

Aşağıdaki ifade tam olarak ne sonuç veriyor. formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0)

Merhaba arkadaşlar; --------------------------------------------------------------- formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0) Range("M" & iSatir).Formula = " =" & Trim(formul) ----------------------------------------------------------------- formülüme " ="...

Ömer bey destekleriniz için teşekkür ederim kod çalışıyor ancak arama yaptıktan sonra veri doğrulama hücresini tekrar açtığımda sayfa1 de yer alan tüm verileri açılır kutuda gösteriyor. Onun dışında istediğim şekilde kodlar çalışıyor. Veri doğrulamanın sadece a sütunu için geçerli olması...

...As Variant For Each ListItem In Worksheets("Sayfa1").Range("A2").Resize(Worksheets("Sayfa1").Range("A1").End(xlDown).Row - 1, 1) If InStr(1, LCase(ListItem), LCase(Range("A1"))) > 0 Then If Len(Liste) = 0 Then Liste = Replace(ListItem, ",", Chr(130))...

Teşekkürler Ali Bey elinize sağlık

...oluşacak. Sub SuzAktar() 'NECDET ABİ Application.ScreenUpdating = False Set s1 = Sheets("ana") Son = s1.[B65536].End(3).Row For i = 2 To Son If InStr(ad, s1.Cells(i, 2)) = 0 Then Sheets.Add s1.Range("A1:G" & Son).AutoFilter s1.Range("A1:G" & Son).AutoFilter Field:=2...

Hocam çok sağolun..

...1).End(3).Row Range("B1:B" & son).Value = "="","" & RC[-1]& "",""" bak = Split(Range("F1"), ",") For i = 1 To son For x = 0 To UBound(bak) If InStr(Cells(i, 2), "," & bak(x) & ",") > 1 Then Columns(1).Replace "," & bak(x), "" ElseIf InStr(Cells(i, 2), "," & bak(x) & ",") = 1 Then...

...Set HTTP = CreateObject("MSXML2.XMLHTTP") HTTP.Open "GET", URL, False HTTP.send If HTTP.Status = 200 Then If InStr(1, HTTP.responseText, "Alfreds Futterkiste") > 0 Then MsgBox "Alfreds Futterkiste .... bulundu" Else MsgBox "Alfreds...

Korhan hocam size de çok teşekkür ederim. İyi ki varsınız

Farklı alternatifler... Option Explicit Sub ActiveWorkbook_Path() MsgBox Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, Chr(47)) + 1, 255) MsgBox Replace(Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, Chr(47)), 255), Chr(47), "") MsgBox...

...s <> "" Then Call sayfaGosterGizle(s, aK) End If End Sub Sub sayfaGosterGizle(s As String, aK As Boolean) If s <> "" Then If InStr(s, "*") Then Dim i For i = 1 To Worksheets.Count If Sheets(i).Name Like s Then Sheets(i).Visible = aK...

...ObjWind.Name If sName = "Internet Explorer" Then Set IEObject = ObjWind adres1 = InStr(ObjWind.LocationURL, "e-okul.meb.gov.tr") adres2 = InStr(ObjWind.LocationURL, "eokul.meb.gov.tr")...

...1) <> "" Then Split_Data = Split(Data(X, 1), " ") For Y = LBound(Split_Data) To UBound(Split_Data) If InStr(1, Kod, " " & Split_Data(Y) & " ") > 0 Then Liste(X, 1) = Split_Data(Y) Exit For End If...

...s2 = Sheets("Sayfa2") s2.Cells.Delete say = s1.Cells(Rows.Count, 1).End(3).Row bol = NSayısı e = 1 sat = 1 For i = 2 To say ' değişen yer If InStr(nob, s1.Cells(i, 2)) = 0 And s1.Cells(i, 2) <> "" Then s1.Range("A1:B" & say).AutoFilter Field:=2, Criteria1:=s1.Cells(i, 2)...

If InStr(nob, s1.Cells(i, 2)) = 0 Then yukarıdaki satırı aşağıdaki kod ile değiştirin. If InStr(nob, s1.Cells(i, 2)) = 0 And s1.Cells(i, 2) <> "" Then

...Set s2 = Sheets("Sayfa2") s2.Cells.Delete say = s1.Cells(Rows.Count, 1).End(3).Row bol = NSayısı e = 1 sat = 1 For i = 2 To say If InStr(nob, s1.Cells(i, 2)) = 0 Then s1.Range("A1:B" & say).AutoFilter Field:=2, Criteria1:=s1.Cells(i, 2) s1.Range("A2:A" & say).Copy s2.Cells(sat + 1...

...= s1.Cells(Rows.Count, 1).End(3).Row For i = 2 To say If i = 2 Then sut = 1 Else sut = s2.Cells(1, Columns.Count).End(1).Column + 1 End If If InStr(nob, s1.Cells(i, 2)) = 0 Then s1.Range("A1:B" & say).AutoFilter Field:=2, Criteria1:=s1.Cells(i, 2) s1.Range("A2:A" & say).Copy...

...UBound(arr, 2)) For i = lngMin + baslikVar To lngMax - 1 For j = i + 1 To lngMax hat1 = Replace(Left(arr(i, sutunNo), InStr(1, arr(i, sutunNo), "*") - 1), "Hat", "") +0 hat2 = Replace(Left(arr(j, sutunNo), InStr(1, arr(j, sutunNo), "*") - 1), "Hat", "") +...