Sorgu için arama sonuçları: instr

Korhan hocam üstte bulunan metni kalın harf yaptığımız gibi ayrıca alttaki metni de aşağıdaki gibi yapabilir miyiz? Yani alttaki metnin ilk 3 karakteri ve son 3 karakteri görünsün ama ortadaki karakterler ******** şeklinde görünsün. Bununla ilgili aşağıdaki T.C. gizleme fonksiyonunu buldum ama...

...' Sayfa adınızı buraya girin Dim cell As Range For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row) If InStr(cell.Value, "-") > 0 Then cell.Offset(0, 1).Value = Left(cell.Value, InStr(cell.Value, "-") - 1) cell.Offset(0, 2).Value = Mid(cell.Value, InStr(cell.Value...

Teşekkür ederim hocam kullanıcı tanımlı fonksiyon olarak yazabilir misiniz

...harfler = Range("C" & x).Value For p = 1 To Len(harfler) karakter = Mid(harfler, p, 1) If InStr(benzersizHarfler, karakter) = 0 Then benzersizHarfler = benzersizHarfler & karakter End If Next p Next x...

Korhan hocam çok teşekkür ederim.

Deneyiniz. Sub Bold_First_Line() If InStr(Range("A1"), Chr(10)) > 0 Then Range("A1").Characters(1, InStr(Range("A1"), Chr(10)) - 1).Font.Bold = True End If End Sub

Hocam teşekkürler yardımlarınız için ancak 1- ad soyad kısmını birleşik girip sonra tabloda kesmek bazı hatalı girişlere neden olabiliyor. (örneğin 3 ve fazlası isimlerde sadece ilk iki kelimeyi alıyor. 2. A sütununa hep aynı sayıyı atıyor +1 yapması lazım

..."Uyarı" Exit Sub End If If Me.TextBox2 = "A" Then d = 12 ElseIf Me.TextBox2 = "B" Then d = 24 Else Exit Sub End If If InStr(1, Me.TextBox1, " ") > 0 Then ad = Split(Me.TextBox1, " ")(0) soyad = Split(Me.TextBox1, " ")(1) Else ad = Me.TextBox1 End If r = 1 For...

...Set DB = daoDBEngine.OpenDatabase(ListBox1.Tag, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") depoilksayfa = Left(MySheet, InStr(1, MySheet, "$", 1) - 1) End Sub

...= Newvalue Else ' Eğer eski değerde yeni değer bulunmuyorsa, eski ve yeni değeri birleştir If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Newvalue & ", " & Oldvalue Else ' Eğer yeni...

Çok Teşekkür ederim ellerinize Sağlık beni büyük bir yükten kurtardınız. Allah razı olsun

Biraz geç oldu denemem. Fakat bu şekilde de olmadı maalesef. tüm rakamların sonlarında ? işareti verdi. Formatı tanımadı. Fakat "₺" işareti benim VB de If InStr(paraBirimi, "?") > 0 Then olarak gözüzüyor. Onu da anlamadım. "₺" yazılmıyor.

...If IsNumeric(dataArray(5, i)) Then Dim paraBirimi As String paraBirimi = Cells(i + 1, 6).NumberFormat If InStr(paraBirimi, "₺") > 0 Then dataArray(5, i) = Format(dataArray(5, i), "#,##0.00 ₺") ElseIf InStr(paraBirimi, "$") > 0...

...ReDim DzSon(0 To UBound(xDz) * 2, 0 To 2) For x = 0 To UBound(xDz) dzTmp = Split(xDz(x) & ";", ";") If InStr(xDz(x), "CALISAN") > 0 Then ad(0) = dzTmp(1): ad(1) = dzTmp(5) If InStr(xDz(x), "CALISAN") = 0 And Len(dzTmp(0) & "") > 0 Then...

Teşekkür ederim Hocam 1. elamanın alımında gayet güzel çalışıyor. Yalnız ilk elaman değil, bunun yanında 2. elaman da alınacağı zaman mümkün olabilir mi? iyi akşamlar.

Merhaba, Deneyiniz. sorgu = "Select F1, Mid(F3, Instr(F3, ' ') + 1, " & _ "Instr(Instr(F3, ' ') + 1, F3, ' ') - Instr(F3, ' ') - 1) As [F3 text] " & _ "From [Panel$J2:AF] "

Halil Hocam sadece ilk elaman değil, 2. elaman da alınacaktı. teşekkürler, iyi çalışmalar.

Sadece ilk eleman mi alınacak? Eğer öyleyse split e gerek yok ınstr fonksiyonu ve len yeterli dir

Bu konu eski biraz ama bu kod ile veri çektiğimde ikinci sayfayı 4 kez ard arda kopyalamış oluyor neden yaptığını anlıyamadım yardımcı olabilirmisiniz. şimdiden tşk.ler

Çok teşekkürler. Sorunsuz çalışıyor. Merak ettiğim için soruyorum, bunların farkı nedir? Açma parolası mevcut olan şifreyi kaldırmak için, yeni açma parolası da sıfırdan şifre koymak için , değiştirme parolası ve yeni değiştirme parolası nedir:) acma_paralası = 12 degistirme_parolası = 13...