Sorgu için arama sonuçları: instr

...Range("A1").CurrentRegion.Value j = 0 For i = 1 To UBound(arr, 1) say = 0 For k = LBound(arr, 2) To UBound(arr, 2) say = say + InStr(1, arr(i, k), ara, vbTextCompare) Next k If say < kac Then j = j + 1 For k = LBound(arr, 2) To UBound(arr, 2)...

...araştırıyordum. iyi Çalışmalar. Sub Test() Dim myVar, str As String Dim a As Byte, x As Byte Dim deg myVar = Sayfa1.Range("B2").Value a = InStr(1, myVar, ".") If a > 0 Then str = Split(myVar, ".")(0) deg = Split(myVar, ".")(1) x = Select_Case_A(str) End If sonuc = CDbl(x &...

Çık teşekkürler Necdet Hocam

...& "\" & filename1 & ".xlsm"), FileFormat:=xlOpenXMLWorkbookMacroEnabled For Each Shp In ActiveSheet.Shapes If Shp.Type = 8 Then If InStr(1, Shp.TextFrame.Characters.Text, "Yeni Teklif") > 0 Then Shp.Delete End If Next ActiveWorkbook.Save End Sub

..."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 & "\" eskizom = ActiveWindow.Zoom ActiveWindow.Zoom = 100 For r = 2 To...

emeğinize sağlık sayın veyselemre, gayet güzel çalışıyor.

...1) Next i kys = .keys For i = 0 To UBound(kys) ky = kys(i) a = Mid(.Item(ky), 3) If InStr(a, ",") Then a = StrReverse(a) bul = InStr(a, ",") a = StrReverse(Left(a, bul - 1) & "ev " &...

Levent hocam olmuştur. Emeğinize sağlık.

Aşağıdaki kodu deneyin. Sub birlestirilmis_hucre_adresleri() For Each hucre In ActiveSheet.UsedRange If hucre.MergeCells Then If InStr(hucreadresi, hucre.MergeArea.Address) > 0 Then GoTo 10 hucreadresi = hucreadresi & isaret & hucre.MergeArea.Address isaret = "," End If 10 Next MsgBox...

...String, _ ln As Integer For i = 1 To 5 With Sheets("Sayfa1").Cells(i, 1) str = "alış" ln = Len(str) StartChar = InStr(1, .Value, "alış") If StartChar <> 0 Then LenColor = StartChar + ln .Characters(Start:=StartChar...

Merhaba Siz Outtlok ile göndermeye çalışıyorsunuz ama; Outlook Object Library' i Early Binding yapmadınız mı? bu olmadan nasıl olacak? Dim appOutlook As Object Dim mItem As Object Set appOutlook = CreateObject("Outlook.Application") Set mItem = appOutlook .CreateItem(0)

...For Each shp In ActiveWorkbook.Sheets(1).Shapes shp.Select MacroLink = shp.OnAction If MacroLink <> "" And InStr(MacroLink, "!") <> 0 Then SplitLink = Split(MacroLink, "!") NewLink = SplitLink(1) If Right(NewLink, 1) = "'" Then...

şimdi oldu Korhan Hocam, olayın püf noktası neydi? Başlıkların olmaması mı? teşekkürler,

...properties=""Excel 12.0;Hdr=No;IMEX=1""" For i = 2 To LastRow RafNo = SH.Range("C" & i).Value poz = InStr(1, RafNo, "-", vbBinaryCompare) If poz > 0 Then Raf = Left(RafNo, 6) Else Raf = Left(RafNo, 4)...

...Dizi = Range("A1").CurrentRegion.Value ReDim Liste(1 To UBound(Dizi), 1 To 1) For i = 1 To UBound(Dizi) If InStr(1, Dizi(i, 1), " MAH") > 0 Then aranan = " MAH" Else aranan = " MH" End If Oncekiler = Split(Trim(Dizi(i, 1))...

...olanlarda sorun yok, 6 haneli (4969-1) Raf Numaralarında gelmiyor. teşekkürler, iyi Çalışmalar. RafNo = SH.Range("C" & i).Value poz = InStr(1, RafNo, "-", vbBinaryCompare) If poz > 0 Then Raf = Left(RafNo, 6) Else Raf = Left(RafNo, 4) If LCase(Raf) =...

...başkasının işine yarar belki. İlginize çok teşekkür ederim. Private Sub CommandButton1_Click() dosyaAdi = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) 'Do While döngüsü başlangıcı Do While Sheets("SONUC").Range("B8").Value <> 0 'B8 hücresi 0 değilse döngüyü...

...& _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=0""" For i = 2 To LastRow RafNo = SH.Range("C" & i).Value poz = InStr(1, RafNo, "-", vbBinaryCompare) If poz > 0 Then Raf = Left(RafNo, 6) Else Raf = Left(RafNo, 4) If LCase(Raf) = "copy"...

...Dim foundLine As Boolean foundLine = False ' Değişkeni bul ve güncelle For i = LBound(codeLines) To UBound(codeLines) If InStr(1, codeLines(i), variableName & " = ") > 0 Then codeLines(i) = variableName & " = """ & newValue & """" foundLine = True...

Teşekkür ederim. Emeğinize sağlık.