...= "Datei: " & InI & " von " & TotFiles
StDateiname = Mid(.FoundFiles(InI), InStrRev(.FoundFiles(InI), "\") + 1)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, InI), _
Address:=.FoundFiles(InI), TextToDisplay:=StDateiname
Next InI
End If
End With
Application.StatusBar = OldStatus...
...Adr = c.Address
Do
adres = Sheets(i).Name & "!" & c.Address
ActiveSheet.Hyperlinks.Add Cells(sat, "J"), "", adres, adres
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And...
...k As Integer
k = 5
Sheets("DENEME").Range("A:A").Clear
For Each sayfa3 In Worksheets
Sheets("DENEME").Cells(k, 5).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa3.Name & "!A1", TextToDisplay:=sayfa3.Name
k = k + 1
Next sayfa3
Application.ScreenUpdating =...
Merhaba Arkadaşlar;
Bir Klasörde ve alt klasörlerinde xls,xlsx,doc ve docx uzantılı word ve excel dosyalarım var. Buralardaki dosyalarımın tamamını .PDF formatında kaydetmek istiyorum.
Bu paylaşım sitesindeki arkadaşların verdiği kodlarla Bir excel dosyasına bütün bu klasör ve alt klasördeki...
...olarak "Data" sayfasına eklenen üye ismine, üye adı ile ilişkilendirilmiş sayfaya köprü eklenmesi..
VBA'da çalışan kod
ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Data").Range("B" & Bos_Satir), Address:="", SubAddress:= _
"Sayfa1!A1", TextToDisplay:=TextBox1.Text
Benim Yapmak...
...aşağıda.... (manuel olarak yaptığım işlemin kodu)
yapmam gereken her bir hücrenin içindeki değeri okutmak ve bu değer için 2. satırdaki komutu uygulatmak...
sınırlı makro tecrübem pek izin vermiyor...
Range("S2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection...
herkese merhabalar;
excel tablosunda a1 hücresinde oluşturduğum c diskindeki dosyayı gösteren bir köprüm var. outlook da body kısmına bu a1 hücresindeki yazıyı macro kod ile ekliyorum.fakat yazıyı köprü özelliğiini de koruyarak aktarmak istiyorum.fakat aşagıdaki kodla sadece yazıyı hyperlinkli...
macro da
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), _
Address:=Dizin & Application.PathSeparator & Kitap
bu satirda kitap ismi icersinde # karakter gecince excelden bu linke tikladigimda ilgili excel dosaysini acamiyorum..
dosya ismi soyle tiy#20070504.xls olursa??
yardım??
...i = 1 To Worksheets.Count
Sheets("liste").Range("A" & i).Select
Sheets("liste").Range("A" & i).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:= _
& Sheets("liste").Range("A" & i).Value & "'!A1"
Next i
End Sub
hata verilen yer...
Aşağıdaki kod excel sayfaları ekleyip, alfabetik sıraya koyup, bu sayfalara köprü oluşturuyor,bu sayfalardan da MALZEMELİST adlı sayfaya geri dönüş linki ekliyor.. Fakat oluşturulan bu geri dönüş, MALZEMELİST sayfasındaki A1 hücresine olmuyor. İstediğim bu geri dönüşün A1 hücresine...
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.