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

Makroyu biraz geliştirdim, Resme tıklayınca resmi büyütüyor, tekrar tıklayınca eski boyutuna getiriyor. Hücre boyutu ile bir ayarlama yapmanıza gerek kalmıyor. Sub Resim_Ekle() Dim yol As String For i = 2 To Cells(Cells.Rows.Count, 5).End(3).Row yol = Range("E" & i).Hyperlinks(1).Address With...

Çok teşekkür ederim. Tam aklımdaki gibi çalışıyor. En kısa zamanda makro öğrenip bunun gibi basit sorularla sizleri rahatsız etmeyeceğim.

Resmi F sütununda köprünün bulunduğu hücre ile aynı satıra yapıştırıyor, ancak F sütunundaki hücrelerin boyutunu (en, boy, genişlik ve yükseklik) ayarlamanız gerekiyor. Sub Resim_Ekle() Dim yol As String For i = 2 To Cells(Cells.Rows.Count, 5).End(3).Row yol = Range("E" &...

5 BİNİ AŞKIN BİR LİNK SİSTEMİM VAR, SİSTEMDE BİR DEĞİŞİKLİK YAPMAYA KARAR VERDİM VE BU LİNKLERİN ADRESİLİNİ BELİRLİ BİR YERE KADAR DEĞİŞTİRMEK İSTİYORUM, BİR KAÇ YOL DENEDİM SONUCA VARAMADIM, GEREKLİ BİLGİLER EKTEDİR...

...searchorder:=xlByRows, searchdirection:=xlPrevious).Row For i = 1 To LastRow Range("A" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ ActiveCell.Value & "!A1", TextToDisplay:=ActiveCell.Value...

..."" Then For j = 1 To Sheets.Count If Sheets(j).Name = Format(Cells(i, "A"), "@") Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "B"), Address:="", SubAddress:= _ "'" & Cells(i, "A") & "'!A1" j = Sheets.Count...

...Set rng = Range("a2:a" & str) For Each c In rng If Dir(xPath & "\" & c.Value & "*.jpg") <> vbNullString Then ActiveSheet.Hyperlinks.Add Anchor:=c.Offset(, 1), _ Address:=xPath & "\" & c.Value & ".jpg", _ TextToDisplay:=c.Text Else: c.Offset(, 1) =...

101,102 vs.. sayfaların kod bölümüne; Private Sub Worksheet_Activate() Cells(1, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Sayfa1!A1", TextToDisplay:="Başa Dön" End Sub Eklerseniz geri dönüş köprüsünüde halletmiş olursunuz.

Merhaba, Sanırım sayfanın kod bölümüne Private Sub Worksheet_Activate() If Cells(2, "B") <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(2, "B"), Address:=ThisWorkbook.Path & "\" & Cells(2, "B") End If End Subeklerseniz her halde işiniz görülür. Kolay gelsin

..."a") <> "" Then Set kls = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\" & Cells(sat, "a") a = kls.FolderExists(yol) ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=yol kls.CreateFolder yol End If End If End Sub Şeklinde değiştirerek deneyin. İyi çalışmalar.

...kls = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\" & Cells(sat, "a") a = kls.FolderExists(yol) ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=yol kls.CreateFolder yol End If End Sub Kodlarını ekleyin ve dosyanızı kaydedin. Sonra A sütununda bir isim...

Aşağıdaki gibi dener misiniz? Sub KopruAdresleriDegistir2() For Each h In ActiveSheet.Range("B:B").Hyperlinks kes = WorksheetFunction.Search("ARAÇ ARŞİVİ", h.Address) h.Address = Right(h.Address, Len(h.Address) - kes + 1) Next End Sub

Merhaba, Kısmen aynı problemden bende muzdaribim. yeni konu açmak istemediğimden buradan yazdım. Yukarıda hamitcan arkadaşın vermiş oldu kodu değiştiriğ kullandım fakat işe yaramadı. Sub KopruAdresleriDegistir1() eski = "C:\Users\Rainyday\AppData\Roaming\Microsoft\Excel" yeni = ""...

...For SAT = 3 To Cells(Rows.Count, "A").End(3).Row vno = Cells(SAT, "A") If Dir(yol & vno & ".txt") <> Empty Then 'If vno = Cells(SAT, "A") Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(SAT, "A"), Address:= _ "klasör\" & Cells(SAT, "A").Value & ".pdf" Kodları kendinize göre uyarlyın

...NewSh.Name = "SayfaIndex" Cells.ClearContents kolon = 1 satir = 2 Cells(1, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex" For i = 2 To Sheets.Count Cells(satir, kolon).Value = Sheets(i).Name...

...NewSh.Name = "SayfaIndex" Cells.ClearContents kolon = 1 satir = 2 Cells(1, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="SayfaIndex!A1", TextToDisplay:="SayfaIndex" For i = 2 To Sheets.Count Cells(satir, kolon).Value = Sheets(i).Name...

Kod çok işime yaradı çok teşekkür ederim :)))

Bana kalırsa siz resim 4 ü K15 hücresine getirmek istiyorsunuz durum böyle is bu kodu kullanın Public bekle Sub GetSheets() bekle = "dur" MsgBox "BİRLEŞTİRME İÇİN, BU DOSYANIN OLDUĞU DİZİNDE (İHALELER)- ADLI KLASÖRÜN OLMALI VE TÜM BİRLEŞECEK EXCEL DOSYALARIN BU KLASÖRDE OLMALI "...

Gördüğüm kadarı ile böyle olur belkide kırmız bölümde resim 4 nesnesinin adı değişiyor haberiniz olsun dosyayı bir daha açtığınızda aynı kodu çalıştırdığınızda resim 4 nesnesi olmayacak Public bekle Sub GetSheets() bekle = "dur" MsgBox "BİRLEŞTİRME İÇİN, BU DOSYANIN OLDUĞU DİZİNDE (İHALELER)-...

doğru yere yazdıysaam olmadı. ben size tam kodu göndereyim en iyisi. Public bekle Sub GetSheets() bekle = "dur" MsgBox "BİRLEŞTİRME İÇİN, BU DOSYANIN OLDUĞU DİZİNDE (İHALELER)- ADLI KLASÖRÜN OLMALI VE TÜM BİRLEŞECEK EXCEL DOSYALARIN BU KLASÖRDE OLMALI ", vbExclamation, "FIRAT UYARIYOR!" Secim =...