..."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...
...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 " &...
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...
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)
...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))...
...= 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...
...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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.