Sorgu için arama sonuçları: instr

Hocam, emeğinize sağlık. Peki bu fonksiyonu hücredeki tüm rakamları toplamak için nasıl revize edebiliriz? Yani arada boşluk olmayabilir, işaret yok. Sadece rakamları görecek. Mesela 50aaa50aaa50aaa50 olabilir. 50aaa 50+50aaa /50 olabilir. Her hâlükârda sadece rakamları görecek. Fonksiyon...

...Toplam As Long Dim Bolumler() As String Bolumler = Split(Metin, " ") For Ba = LBound(Bolumler) To UBound(Bolumler) If InStr(Bolumler(Ba), "/") = 0 Then If IsNumeric(Bolumler(Ba)) Then Toplam = Toplam + CLng(Bolumler(Ba)) End If...

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

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

...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