Sorgu için arama sonuçları: instr

SadeceDeğerleriGetir adında başka bir kodunuz daha olmalı. Kod isimleri çakışmış olmalı.

...hariçSayfalar = ";Toplam Reçete;Veriler;Deneme;" For Each ws In ThisWorkbook.Worksheets If InStr(1, hariçSayfalar, ";" & ws.Name & ";") = 0 Then sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If sonSatir >= 5 Then ' 5. satırdan...

...Dim deger As String For Each hücre In Range("A1:A50000") If hücre.Value <> "" Then deger = hücre.Value If InStr(deger, ".") > 0 Then deger = Split(deger, ".")(0) End If hücre.Value = CLng(deger) End If...

merhaba merhaba denedim ustad şöyle ara kısmında j alanına kadar getiriyor toplam sutun 14 fakat 10 sutun geliyor aramada ayrıca bi hata veriyor aramada (hata could the set the list property.Invaled property value) data kısmındaki ilk alanı a: sutunu aktarıyor buna gerek yok sıra no olduğu...

bu doğru sonuç veriyor hocam. elinize sağlık

koddaki Return Kelime satırı kırmızı oluyor. İşe yaramadı.

yanlış ayırıyor hocam Volkan ismini Vo lkan diye ayırdı

...Onlar$(7) = "yetmiş" Birler$(8) = "sekiz": Onlar$(8) = "seksen": Birler$(9) = "dokuz": Onlar$(9) = "doksan" say = Str$(sayi#) virgul1 = InStr(1, say, ".") If virgul1 Then If Len(Mid(say, virgul1 + 1)) = 1 Then say = say + "0" say = Right$(say, Len(say) - virgul1) GoSub cevir If cevap =...

...If onc_nm = nm Next ii col.Add a f1 = "" f2 = "" If col.Count > 0 Then For iii = 1 To col.Count If IsNumeric(col(1)) And Len(col(1)) < 4 And InStr(col(1), ".") = 0 Then If .Exists(Val(col(1))) Then Z = .Item(Val(col(1))) Else Z(1) = 0 Z(2) = 0 End If f1 = f1 & Z(1) Else f1 = f1 & col(1) End...

...If col.Count > 0 Then For iii = 1 To col.Count If IsNumeric(col(1)) And Len(col(1)) < 4 And InStr(col(1), ".") = 0 Then If .Exists(Val(col(1))) Then z = .Item(Val(col(1)))...

.../ içeren hücreyi formüle çevirmek. Yani hücre 1234/567 ise bunu makro ile =1234+567 çevirip normal toplama işlemini yapmak Sub Duzelt() Dim rng As Range Dim ayr As String ayr = "/" For Each rng In Selection If InStr(rng, ayr) > 0 Then rng = "=" & Replace(rng, ayr, "+") Next rng End Sub

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

kod bu tekrar bakabilir miyiz?

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

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

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

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

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