Sorgu için arama sonuçları: instr

...yy = Len(yy) xx = zz - yy For x = 1 To xx + 1 al = Cells(i, 1).Value If InStr(al, ";") Then bol = Split(al, ";") Cells(i, x + 1).Value = Trim(bol(x - 1)) End...

...bol As Variant, al$ Range("B:C").ClearContents For i = 1 To Cells(Rows.Count, 1).End(3).Row al = Cells(i, 1).Value If InStr(al, ";") Then bol = Split(al, ";") Cells(i, 2).Value = bol(0) Cells(i, 3).Value = Trim(bol(1)) Else...

Üstadım Allah ne muradınız varsa versin ayağınıza taş değdirmesin. Bundan sonraki birleştirmeleri ben ilave etmeye gayret edeceğim. Çok ama çok teşekkürler

...rnk = Array(m1, m3, m5) 'Renklendirilecek değişkenler With Sheets("Sayfa5").Range("A13") .Font.Color = vbBlack .Value = m1 & m2 & m3 & m4 & m5 For Each r In rnk If InStr(1, .Value, r) > 0 Then .Characters(InStr(1, .Value, r), Len(r)).Font.Color = vbRed Next End With

...B2'den başlattım ' Veri sayfasındaki K sütununda arama yapın For Each veriHucresi In veriSayfa.Range("K1:K5") If InStr(1, veriHucresi.Value, hedefHucresi.Value, vbTextCompare) > 0 Then ' Eşleşme bulunduysa B sütununa ekleme yapın If...

..."C")) > 0 Then Set s2 = Sheets(WorksheetFunction.VLookup(s1.Cells(a, "C"), Sheets("BankaSabit").Range("B:C"), 2, 0)) ElseIf InStr(1, s1.Cells(a, "C"), "BORÇ ÇEKİ", vbTextCompare) > 0 Then Set s2 = Sheets("BorçÇeki") ElseIf InStr(1, s1.Cells(a, "C"), "ÇEK TAHSİL"...

teşekkürler, bu şekilde bir fonksiyon varmış Function GetBtnType(ctrl As Control, Index As Integer) If InStr(1, ctrl.Tag, "-") <> 0 Then GetBtnType = Split(ctrl.Tag, "-")(Index) Else GetBtnType = ctrl.Tag End If End Function

...Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue...

Çok teşekkür ederim. Oldu. Sağolun

...ReDim dz(1 To sn, 1 To 10) For a = 2 To sn If s.exists(s1.Cells(a, "B").Value) Then x = s(s1.Cells(a, "B").Value) If InStr(1, dz(x, 5) & ayr, s1.Cells(a, "E") & ayr) = 0 Then dz(x, 5) = dz(x, 5) & ayr & s1.Cells(a, "E") dz(x, 6) = dz(x, 6) & ayr &...

...sutun) Like "*" & Aranan_Deger & "*" Then sonuc_Gecici = getirilecekDegerler(satir, sutun) If InStr(1, sonuclarListesi, ayrac & sonuc_Gecici & ayrac) = 0 Then sonuc = sonuc & sonuc_Gecici & ayrac...

...sutun).Value Like "*" & Aranan_Deger & "*" Then sonuc_Gecici = Getirilecek_Aralik.Offset(satir - 1, sutun - 1).Cells(1, 1).Value If InStr(1, sonuc, bslAyrac & sonuc_Gecici & bslAyrac) = 0 Then sonuc = sonuc & sonuc_Gecici & bslAyrac End If Next sonuc = Replace(sonuc, bslAyrac, ayrac) If...

...As String Dim Klasor As String, uzanti As String, dosya As String Klasor = "c:\Yedekler" uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare) - 1) dosya = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - Len(uzanti) - 1)...

Merhaba. Diğer bilgisayarda da klasör yolu aynı değilse hata verir. Aşağıdaki klasör yolunu kontrol edin laptop'ta. Klasor = "c:\Yedekler" ds.CreateFolder "E:\MUHASEBE PROĞRAMI"

...String, Kayıt_Yeri As String Dim Klasor As String, uzanti As String, dosya As String Klasor = "c:\Yedekler" uzanti = Right(ThisWorkbook.name, InStr(1, StrReverse(ThisWorkbook.name), ".", vbTextCompare) - 1) dosya = Mid(ThisWorkbook.name, 1, Len(ThisWorkbook.name) - Len(uzanti) - 1)...

...& isbn, False http.send responseText = http.responseText startIndex = InStr(responseText, """thumbnail"": """) + Len("""thumbnail"": """) endIndex = InStr(startIndex, responseText, """") thumbnailURL =...

Bu formül kusursuz olmuş ben formülün eksik kısımlarını tamamlamak istiyordum siz yapmışsınız tüm ekleri kusursuz ekliyor çok teşekkür ederim.

...metin = Trim(metin) Dim sonKar$, i%, ek$ For i = 1 To Len(metin) sonKar = Mid(StrReverse(metin), i, 1) If InStr("aıoueiöü", sonKar) Then If i = 1 Then ek = "y" Exit For End If Next i yonelmeEkiEkle = metin & "'" & ek &...

...son iki karakterini kontrol et ve eki ekle Dim sonIkiKarakter1 As String sonIkiKarakter1 = Mid(sehir1, Len(sehir1) - 1, 2) If InStr(kalın_sesli_harfler, Mid(sonIkiKarakter1, 1, 1)) > 0 Then sehir1 = sehir1 & "'dan" ElseIf InStr(ince_sesli_harfler, Mid(sonIkiKarakter1...

@Haluk göndermiş olduğunuz koda bakacağım., ancak bu kodu şu altta vermiş olduğum satıra eklememiz gerekiyor... formul = Replace(Replace(Replace(Replace(Replace(Replace(Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0), "m³", ""), "m²", ""), "m", ""), "ort", ""), " ", ""), ",", ".")