Sorgu için arama sonuçları: instr

  1. halit3

    Sağdan sola doğru klasörden resim çağırma

    ..."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...
  2. V

    Gruplandırarak birleştirmek

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

    Gruplandırarak birleştirmek

    ...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 " &...
  4. hakki83

    Veri Doğrulama Alanlarını Görme

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

    Veri Doğrulama Alanlarını Görme

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

    dolgu yapma

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

    Excelde belli hücreleri ayrı kitap halinde mail atan buton

    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)
  8. C

    Excelde belli hücreleri ayrı kitap halinde mail atan buton

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

    Sql Sorgusunda hem nümerik ve metinsel ifadeler

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

    Sql Sorgusunda hem nümerik ve metinsel ifadeler

    ...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)...
  11. ÖmerFaruk

    ÖncekiMetin formülü yerine Makro Kodu

    ...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))...
  12. tamer42

    Sql Sorgusunda hem nümerik ve metinsel ifadeler

    ...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) =...
  13. hkaradag

    Hücre Değeriyle Kayıt Yapmak

    ...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ü...
  14. tamer42

    Sql Sorgusunda hem nümerik ve metinsel ifadeler

    ...& _ 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"...
  15. M

    Çözüldü Atlatmalı tarih yazdırma ve sayfayı resim olarak kaydetme işlemi

    ...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...
  16. Korhan Ayhan

    Soru Bir klasörde eklenecek dosyalardaki sayfa isimleri hep aynı adı kullanabilir mi?

    ...= My_Connection For Each WS In All_Tables.Tables If Replace(WS.Name, "'", "") Like "*$" And InStr(1, WS.Name, "Print_Area") = 0 Then If Replace(Replace(WS.Name, "'", ""), "$", "") = New_Sheet_Name Then If My_Connection.State <> 0...
  17. Xavay

    İki sütundaki eşleşen adları üçüncü sütuna yazdırma

    Çok teşekkür ederim her birinize. Deneyeceğim bunları. Allah razı olsun.
  18. igultekin2000

    indis, kaçıncı formülü

    ...ws1.Cells(i, "K").Interior.ColorIndex = 3 ws2.Cells(j, "C").Interior.ColorIndex = 3 Exit For ElseIf InStr(ws1.Cells(i, "K").Value, "+/-") > 0 Then Dim rng As Range Set rng = ws2.Range("C" & j - 1 & ":C" & j + 1)...
  19. Korhan Ayhan

    İki sütundaki eşleşen adları üçüncü sütuna yazdırma

    ...In Range("B1:B" & Cells(Rows.Count, 2).End(3).Row) X = 0 Y = 0 For Each My_Text In Split(Rng.Value, ",") If InStr(1, My_Text, ".") > 0 Then For Each My_Sub_Text In Split(My_Text, ".") On Error Resume Next...
Üst