Sorgu için arama sonuçları: instr

  1. V

    günlerdir uğraşıyorum veri doğrulama

    ...' Kriteri içerenleri filtrele sonuc = "" For Each cell In veriAraligi If cell.Value <> "" And InStr(1, cell.Value, kriter, vbTextCompare) > 0 Then sonuc = sonuc & cell.Value & "," End If Next cell...
  2. G

    Büyük Küçük Harf Duyarsızlığını Ayarlama

    kod bu tekrar bakabilir miyiz?
  3. G

    Büyük Küçük Harf Duyarsızlığını Ayarlama

    ...If anahtarKelime <> "" Then ' İlk eşleşen anahtar kelimeyi bul If Not anahtarKelimeBulundu And InStr(1, veriHarfleri, anahtarKelime, vbTextCompare) > 0 Then kelimeBulundu = True...
  4. G

    Büyük Küçük Harf Duyarsızlığını Ayarlama

    Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office
  5. V

    Büyük Küçük Harf Duyarsızlığını Ayarlama

    ...If anahtarKelime <> "" Then ' İlk eşleşen anahtar kelimeyi bul If Not anahtarKelimeBulundu And InStr(1, veriHarfleri, anahtarKelime, vbTextCompare) > 0 Then kelimeBulundu = True...
  6. G

    Büyük Küçük Harf Duyarsızlığını Ayarlama

    ...If anahtarKelime <> "" Then ' İlk eşleşen anahtar kelimeyi bul If Not anahtarKelimeBulundu And InStr(1, veriHarfleri, anahtarKelime, vbTextCompare) > 0 Then kelimeBulundu = True...
  7. muratgunay48

    metin içindeki rakamların toplamını almak istiyorum.

    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...
  8. Muzaffer Ali

    metin içindeki rakamların toplamını almak istiyorum.

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

    PDF to XML

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

    Xml To Pdf

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

    yazıcı bağlantısı sorgulama

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

    üç değişkenli formül

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

    Dosyadan Ekle Makrosu

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

    Hücre İçindeki Bazı Kelimeleri "Kalın" Yapma

    ...ç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...
  15. S

    Hücre İçindeki Bazı Kelimeleri "Kalın" Yapma

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

    ChatGPT kullanımları

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

    Tarih Kontrol / Time API

    ...& 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 =...
  18. Biolightant

    Sayfadan UserForma Resim Getirme Taşıma - Image Transporter

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

    makro hatası yüzünden excel dosyamda bazı sayfalar açılmıyor.

    ...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ı."...
  20. tamer42

    Access' ten Userform' a veri çekerken sayısal ifadelerde virgül yenine nokta gelme durumu

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