Sorgu için arama sonuçları: instr

...= Newvalue Else ' Eğer eski değerde yeni değer bulunmuyorsa, eski ve yeni değeri birleştir If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Newvalue & ", " & Oldvalue Else ' Eğer yeni...

Çok Teşekkür ederim ellerinize Sağlık beni büyük bir yükten kurtardınız. Allah razı olsun

Biraz geç oldu denemem. Fakat bu şekilde de olmadı maalesef. tüm rakamların sonlarında ? işareti verdi. Formatı tanımadı. Fakat "₺" işareti benim VB de If InStr(paraBirimi, "?") > 0 Then olarak gözüzüyor. Onu da anlamadım. "₺" yazılmıyor.

...If IsNumeric(dataArray(5, i)) Then Dim paraBirimi As String paraBirimi = Cells(i + 1, 6).NumberFormat If InStr(paraBirimi, "₺") > 0 Then dataArray(5, i) = Format(dataArray(5, i), "#,##0.00 ₺") ElseIf InStr(paraBirimi, "$") > 0...

...ReDim DzSon(0 To UBound(xDz) * 2, 0 To 2) For x = 0 To UBound(xDz) dzTmp = Split(xDz(x) & ";", ";") If InStr(xDz(x), "CALISAN") > 0 Then ad(0) = dzTmp(1): ad(1) = dzTmp(5) If InStr(xDz(x), "CALISAN") = 0 And Len(dzTmp(0) & "") > 0 Then...

Teşekkür ederim Hocam 1. elamanın alımında gayet güzel çalışıyor. Yalnız ilk elaman değil, bunun yanında 2. elaman da alınacağı zaman mümkün olabilir mi? iyi akşamlar.

Merhaba, Deneyiniz. sorgu = "Select F1, Mid(F3, Instr(F3, ' ') + 1, " & _ "Instr(Instr(F3, ' ') + 1, F3, ' ') - Instr(F3, ' ') - 1) As [F3 text] " & _ "From [Panel$J2:AF] "

Halil Hocam sadece ilk elaman değil, 2. elaman da alınacaktı. teşekkürler, iyi çalışmalar.

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