Sorgu için arama sonuçları: instr

..."Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0) If Not Klasor Is Nothing Then Kaynak = Klasor.SELF.Path If InStr(1, Kaynak, "{") > 0 Then GoTo atla If Right(Kaynak, 1) <> "\" Then Kaynak = Kaynak & "\" With Application .Calculation = xlManual .ScreenUpdating = False .EnableEvents = False...

Hocam makro çalıştırdığımda yine bu ekran geliyor

..."Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0) If Not Klasor Is Nothing Then Kaynak = Klasor.SELF.Path If InStr(1, Kaynak, "{") > 0 Then GoTo atla If Right(Kaynak, 1) <> "\" Then Kaynak = Kaynak & "\" With Application .Calculation = xlManual .ScreenUpdating = False .EnableEvents = False...

Tekrar Merhaba, Altin üyelik kaydi yaptim. sanirim dosyayi yükledikten sonra yardimci olabilirisiniz.

...Dim formattedDate As String Dim dateParts() As String ' TextBox'taki metni al enteredText = TextBox1.Text ' Metni "/" veya "." ile parçala If InStr(enteredText, "/") > 0 Then dateParts = Split(enteredText, "/") ElseIf InStr(enteredText, ".") > 0 Then dateParts = Split(enteredText, ".") Else...

...ReDim dz(1 To sn, 1 To 10) For a = 4 To sn If s.exists(s1.Cells(a, "C").Value) Then x = s(s1.Cells(a, "C").Value) If InStr(1, dz(x, 6) & ayr, s1.Cells(a, "F") & ayr) = 0 Then dz(x, 6) = dz(x, 6) & ayr & s1.Cells(a, "F") dz(x, 7) = dz(x, 7) & ayr &...

...On Error Resume Next ' Değişen hücreleri kontrol et For Each cell In Target ' Hücre içeriğinde nokta varsa If InStr(cell.Value, ".") > 0 Then ' Noktayı virgüle çevir cell.Value = Replace(cell.Value, ".", ",") End If Next End Sub

...= True Application.StatusBar = "....İşleminiz yapılıyor...." Application.ScreenUpdating = False Do While file <> "" If Len(file) > 0 And InStr(1, file, "$") = 0 Then Set wDoc = wApp.Documents.Open(klasor & "/" & file) For i = 1 To sonsat With wDoc.Content.Find...

Kodlar için çok teşekkürler Korhan bey. Aşağıdaki mesajı verdi ama klasöre dosyaları taşımadı. MsgBox "Dosya taşıma işlemi tamamlanmıştır.", vbInformation

..." ") Last_Text = UCase(Replace(Replace(My_File_Name_Text(UBound(My_File_Name_Text)), "ı", "I"), "i", "İ")) If InStr(1, Last_Text, "İLKOKUL") > 0 Or InStr(1, Last_Text, "ORTAOKULU") > 0 Then My_File.Move Sub_Folder_1 & My_File.Name End If If...

...son kelimesini al lastWord = SonKelimeyiAl(filename) ' Son kelimeye göre klasör belirle ve dosyayı taşı If InStr(UCase(lastWord), "İLKOKULU") > 0 Or InStr(UCase(lastWord), "ORTAOKULU") > 0 Then newFilePath = ilkokullarPath & "\" & filename...

..."dokuz")(Right(coz, 1)) _ ) For i = 1 To Len(coz) sonKar = Mid(coz, i, 1) If i = 1 Then ek = IIf(InStr("fstkçşhp", sonKar), "t", "d") If InStr("aeıioöuü", sonKar) Then Exit For Next i saatlereDeDaEkle = ek &...

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

...Target.Value Application.Undo 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 End If...

..."F").End(xlUp).Row Satirlar = Split(Cells(Bak, "F"), Chr(10)) For Satir = 0 To UBound(Satirlar) If Chr(10) & InStr(Cells(Bak, "H"), Satirlar(Satir)) = 0 Then Fark = Fark & Chr(10) & Satirlar(Satir) End If Next Cells(Bak...

...k), "ı", "I"), "i", "İ")) ndeg = UCase(Replace(Replace(Me.Controls(nsn & k), "ı", "I"), "i", "İ")) If InStr(vdeg, ndeg) > 0 Or Me.Controls(nsn & k) = "" Then say = say + 1 Next If say = 9 Then: s = s + 1: For u = 1 To 23: snc(s, u) = v(a, u): Next '...

...6 ' Benzersiz bir sayı üretmek için döngü Do num = Int((16 - 1 + 1) * Rnd + 1) Loop While InStr(usedNumbers, "," & num & ",") > 0 ' Kullanılan sayıları güncelliyoruz usedNumbers = usedNumbers & num & ","...

çok teşekkür ediyorum

...' Hedef sayfanın adını buraya yazın Dim p As Long For p = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row If InStr(1, Cells(p, 1) & Cells(p, 16) & Cells(p, 17) & Cells(p, 18), TextBox1.Value, vbTextCompare) > 0 Then ListBox1.AddItem ws.Cells(p, 1).Value...

...ne kadar uğraştıysam artık basmıyor. a = 0 Set Link = ie.Document.getElementsByTagName("a") For Each l In Link x = l.innerText y = "Başlat" If InStr(1, x, y, vbBinaryCompare) > 0 Then If a > 0 Then l.Click Exit For End If a = a + 2 End If Next l ya da Set Link =...