@Korhan Ayhan hocam
ActiveSheet.Hyperlinks.Add _
Şeklinde yeterli olmuyor. Normal yapabiliyorum ama ŞABLON isimli sayfayı klonla ve link ver olunca yapamadım. İnanın çok araştırdım.
...link yapamadım.
Dim ws As Worksheet
Dim x As Integer
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name
x = x + 1
Next ws
Yapsam şablon adlı sayfanın da...
Merhaba Otomarik köprü tanımlama
Sub Kopru_Olustur()
For i = 4 To Sheets.Count
Sayfa_Adı = Sheets(i).Name
Link_Adresi = Sheets(i).Name & "!C2"
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Adresi, TextToDisplay:=Sayfa_Adı
Next i
End Sub
Butonda aşağıdaki mail gönderme kodlarını içeren kod mevcut.
Bu bir modül ve birden fazla butona bu kod atanmış durumda.
Yukarıda hazırlamış olduğunuz kodu tam olarak nereye yazmam gerek yardımcı olur musunuz?
Private Sub CommandButton1_Click()...
Merhaba,
Aşağıdaki kod sayfada yer alan tüm köprülerin metinlerini A Klasörü olarak değiştirebilirsiniz.
Sub Kopruisimlerinidegistir()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.TextToDisplay = "A Klasörü"
'
Next h
End Sub
Bir alttaki kod ise belirli bir metin içeren...
Merhaba,
Aşağıdaki kodu deneyebilirsiniz.
Option Explicit
Sub Hyperlink_TextToDisplay_Update()
Dim My_Link As Hyperlink, My_Address As String
For Each My_Link In ActiveSheet.Hyperlinks
My_Address =...
Arkadaşlar Makroda değişiklik yapmama rağmen bir anda hata vermeye başladı.
EmailasPDF özelliği çalışmıyor ve Run Time Error hatası vererek bu dosya bulunamıyor diyor. Makroyu aşağıya yapıştırdım. Yardımlarınızı bekliyorum.
Option Explicit
Dim invno As String
Dim custname As String
Dim PIno As...
Bu kodu bir dene
Sub YeniSayfaOlustur()
Dim yeniSayfaAdi As String
Dim sablonSayfa As Worksheet
Dim yeniSayfa As Worksheet
Dim hedefHucresi As Range
' Kullanıcıdan yeni sayfanın adını al
yeniSayfaAdi = InputBox("Yeni sayfa adını yazın:", "Sayfa Adı")
' Eğer kullanıcı iptal ederse veya boş bir...
...If tbl Is Nothing Then Exit Sub
With tbl
If InStr(Test, .Range.Address) = 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=.Range.Worksheet.Name & "!" & Split(.Range.Address, ":")(0), TextToDisplay:=Cells(i, 1).Value
Test = Test & .Range.Address...
Böyle deneyiniz.
Sub SayfayaLink()
Sheets("Sheet1").Select
Range("A3:A2500").Clear
For i = 1 To Sheets.Count
Range("A" & i + 2) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), Address:="", _
SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub
...SayfayaLink()
Sheets("Sheet1").Select
Range("A3:A2500").Clear
For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _
SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub
Sizin kodunuza 1...
...Done adında sayfanız olduğunu varsayalım.
Sub SayfayaLink()
Sheets("Done").Select
For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", _
SubAddress:=Sheets(i).Name & "!" & "A1", TextToDisplay:=Sheets(i).Name
Next
End Sub
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.