Sorgu için arama sonuçları: instr

Sadece ilk eleman mi alınacak? Eğer öyleyse split e gerek yok ınstr fonksiyonu ve len yeterli dir

Bu konu eski biraz ama bu kod ile veri çektiğimde ikinci sayfayı 4 kez ard arda kopyalamış oluyor neden yaptığını anlıyamadım yardımcı olabilirmisiniz. şimdiden tşk.ler

Çok teşekkürler. Sorunsuz çalışıyor. Merak ettiğim için soruyorum, bunların farkı nedir? Açma parolası mevcut olan şifreyi kaldırmak için, yeni açma parolası da sıfırdan şifre koymak için , değiştirme parolası ve yeni değiştirme parolası nedir:) acma_paralası = 12 degistirme_parolası = 13...

..."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 & ","...