Sorgu için arama sonuçları: ActiveSheet.Hyperlinks.Add

Merhaba, şu şekilde dener misiniz; Sub YeniSayfaOlustur() Dim musteriSayfasi As Worksheet Dim listSayfasi As Worksheet Dim yeniSayfa As Worksheet Dim yeniSayfaAdi As String Dim sayfaVar As Boolean Dim d1Degeri As Variant Application.ScreenUpdating = False...

üstadım hata veriyor. kopya sayfanın d1 hücresini alıp list sayfası b4 e kopyalaması lazım ken, formul : kopya sayfadaki formüllerin tümünü (c3 , d3 ve d1 formülleri) değerlerini siliyor ve list b4 e herhangi bir değer taşımıyor.

Beğenmiş olmanıza sevindim. Belirtmiş olduklarınızı anladığım kadarıyla eklemeye çalıştım, eksik nokta olursa belirtebilirsiniz. İyi çalışmalar; Sub YeniSayfaOlustur() Dim musteriSayfasi As Worksheet Dim listSayfasi As Worksheet Dim yeniSayfa As Worksheet Dim yeniSayfaAdi As...

üstadım harika olmuş uyarıları mesajlarını eklemeniz süper olmuş .sadece eklemeyi unutum bir kısım var oda şu; yeni kopya sayfadaki a1 hücresine "liste sayfası b2 hücresindeki" metin yazacak ve kopya sayfadaki d1 hücresindeki borc tutarı list sayfadaki b4 hücresinden veri çekecek. özetle= butona...

Merhaba, deneyip sonucu paylaşabilir misiniz; Sub YeniSayfaOlustur() Dim musteriSayfasi As Worksheet Dim listSayfasi As Worksheet Dim yeniSayfaAdi As String Dim sayfaVar As Boolean On Error Resume Next Set listSayfasi = ThisWorkbook.Worksheets("LİST") Set...

...yardımcı olacak birisi varsa çok sevinirim Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("L1")) Is Nothing And Target <> Empty Then Link End Sub Sub Link() For Each L In [L5:L6] ActiveSheet.Hyperlinks.Add L, L.Value Next...

Şöyle bir çözüm buldum. Hücreleri birleştirdim sonra da aşağıdaki makro ile link atadım. Sanırım bu benim işimi görecek. ama "Hyperlink" in 255 karakter sınırı var maalesef. Sub Link() For Each J In [J1:J6] ActiveSheet.Hyperlinks.Add J, J.Value Next End Sub

...Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' Hücreye hyperlink ekle ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "C"), Address:="", SubAddress:="'" & Cells(i, "C") & "'!B2", TextToDisplay:=Cells(i, "C").Value ' Hafızayı...

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

Ben olsam biraz araştırma yapardım. https://www.excel.web.tr/search/462346/?q=ActiveSheet.Hyperlinks.Add&o=date

ActiveSheet.Hyperlinks.Add _ Anchor:=Selection, Address:="", SubAddress:= _ ws.Name & "!A1", TextToDisplay:=ws.Name Eklediğim zaman link vermesi lazım. Vermiyor. Hata veriyor.

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

....EnableEvents = False .ScreenUpdating = False End With Sayfa1.Range("C10").Value = ThisWorkbook.FullName ActiveSheet.Hyperlinks.Add Range("C10"), Sayfa1.Range("C10").Value = ThisWorkbook.FullName With Range("C10").Font .Name = "Calibri" .Underline = False .Size = 9...

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 Arkadaşlar, Sub Link_Yap() [A3] = "Oku_Beni" uu = "#" & [A3] & "!A2" ActiveSheet.Hyperlinks.Add Anchor:=Cells(3, 1), Address:=uu End SubBu makro ile A3 hücresinde bulunan Oku_Beni yazısını, Oku_Beni sayfasında A2 hücresine götüren link oluşturuluyor. Aynı Oku_Beni yazısını...

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

VİP üyelik aldım ama bahsettiğim gibi bişey bulamadım

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