Sorgu için arama sonuçları: instr

...& xmlFile) Dim fileNameWithoutExt As String fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1) wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17...

...mümkündür, ancak doğrudan ve kesin bir yöntem yoktur. Bunu yapmak için aşağıdaki yaklaşımları kullanabilirsin: 1. WMI (Windows Management Instrumentation) Kullanımı WMI ile yazıcının bağlantı türünü öğrenmek mümkündür. Aşağıdaki VBA kodu, sistemdeki yazıcıları ve bağlantı türlerini listeler...

...2 To 13 malzemeKodu = Cells(i, 1).Value malzemeMetni = Cells(i, 2).Value fiyat = Cells(i, 3).Value If InStr(1, malzemeMetni, "MOTOR", vbTextCompare) > 0 And fiyat > 40000 Then Cells(i, 4).Value = "MOTOR" ElseIf...

hocam kusura bakmayın araya giriyorum bende aynı işlemler ile uğraşıyorumda burada bende bir yapı değişikliği var dosyayı seçip seçilen dosyadaki verileri başka bir xls deki sayfaya nasıl göndeririz bana o lazım konu sorunuma çok yakın oldugu için araya girmek zorunda kaldım...

...çalıştı aranankelime = "ba" For Each hucre In Sayfa1.Range("C1:C10") If Not IsEmpty(hucre.Value) Then pozisyon = InStr(1, hucre.Value, aranankelime, vbTextCompare) If pozisyon > 0 Then hucre.Characters(Start:=pozisyon...

...hata var mı? Teşekkürler For Each hucre In analiste.Range("C1:C" & sonsatirc) If Not IsEmpty(hucre.Value) Then pozisyon = InStr(1, hucre.Value, aranankelime, vbTextCompare) If pozisyon > 0 Then hucre.Characters(Start:=pozisyon...

...i = Len(Kod) To 1 Step -1 sonKarakter = Mid(Kod, i, 1) ' Eğer dahil olmayan karakterse, yerini sabit bırak If InStr(dahilOlmayanlar, sonKarakter) > 0 Then sonuc = Mid(sonuc, 1, i - 1) & sonKarakter & Mid(sonuc, i + 1) GoTo DevamEt...

...& Timer With CreateObject("MSXML2.XMLHTTP") .Open "GET", url, False .send resp = .responseText x = InStr(resp, "currentLocalTime") If x > 0 Then resp = Mid(resp, x + 19) x = InStr(resp, ",") resp =...

...If TargetObject Is Nothing Then ' Çoklu Hücre aralığı ("A1:B2,B9:C10") kabul edilmez If InStr(1, AddressOrShapeName, ",") = 0 Then ' Şekil yoksa hücre adresini kontrol et Set TargetObject = Range(AddressOrShapeName) End If End If On...

...ile başlıyorsa If IsNumeric(Left(val, 1)) Then ' İlk sayı ve "-" işaretinden sonrasını al valWithoutNumber = Trim(Mid(val, InStr(val, "-") + 1)) ' Rapor ifadesini oluştur FindInArray = """" & valWithoutNumber & """ kazanımı için etkinlik uygulandı."...

bence bu çözüm güzel bir fikir teşekkür ederim. Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",")

...& sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",") veya Private Sub txtQuantity_Change() If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value = Replace(txtQuantity, ".", ",") End If txtQuantity.Value =...

...Id= " & sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value = vbNull(rst!Miktar) Private Sub txtQuantity_Change() If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value = Replace(txtQuantity, ".", ",") Me.txtQuantity = Format(txtQuantity.Value, "#,##0") End...

...Sub AL() Application.ScreenUpdating = False For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row 'xlUp kullanmak daha doğru olur If InStr(Cells(i, 1).Value, "-") > 0 Then 'Tire olup olmadığını kontrol et Cells(i, 2).Value = Split(Cells(i, 1).Value, "-")(1) 'Tireyi...

...As Variant ' $ işaretlerini kaldırarak adresi al DeleteAddress = Target.Address(False, False) ' Eğer adres "5:5" If InStr(DeleteAddress, ":") > 0 Then ' Satır aralığını belirle StartRow = Target.Row EndRow = Target.Rows(Target.Rows.Count).Row...

...xmlhttp.Open "GET", url, False xmlhttp.Send jsonResponse = xmlhttp.responseText startPos = InStr(jsonResponse, """datetime"":""") + Len("""datetime"":""") endPos = InStr(startPos, jsonResponse, """") datetimeString = Mid(jsonResponse, startPos, endPos - startPos)...

...da modül ekleyip bu kodu yazın ve kendinize göre düzeltin ekleyin istediğiniz kriterleri Function Kontrol(Aciklama As String) As String If InStr(1, Aciklama, "Q", vbTextCompare) > 0 And InStr(1, Aciklama, "mavi", vbTextCompare) > 0 Then Kontrol = "MAVİ-YUVARLAK" ElseIf...

Tarih kısmına 02022024 şeklinde yazınca tarih 10.02.7436 oluyor. yoğun giriş yapıldığı için tarih arasına nokta v.b koymak zaman alıyor. Ayrıca 11122024 şeklince yazınca da hata veriyor

...Sutun) End With ElseIf Not Intersect(Target, Range("C:C")) Is Nothing Then If Len(Target) = 8 Then If InStr(Target, ".") = 0 Then Target = FormatDateTime(Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4), vbShortDate) ElseIf Len(Target)...

...If Target.Count > 1 Then Exit Sub Set blg = Range("c:c") If Intersect(Target, blg) Is Nothing Then Exit Sub If Len(Target) = 8 Then If InStr(Target, ".") = 0 Then Target = Format(Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4), "dd/mm/yyyy;@") ElseIf Len(Target) = 7 Then...