mp3 ve sayfa ekleme

[beyaz34]

mp3 ve sayfa eklemeyi birleştirdim ama sayfa ekleme butonuna bastıgım zaman hata veriyor .herkeze iyi çalışmalar dilerim

 

[Kemal Demir]

Beyaz34 affınıza sıgınarak size bir başka kod önermek istiyorum.

[vb:1:9eada8cd72]Sub hyperlinks_kd()
On Error Resume Next

dosya1 = InputBox("Sistemdeki Ses Dosyasının Adresini Giriniz")
Set yol = CreateObject("Scripting.FileSystemObject").GetFolder(dosya1).Files
For Each dosya In yol
c = c + 1
'Link
ActiveSheet.hyperlinks.Add Anchor:=Cells(c, "a"), Address:=dosya1 & dosya.Name, TextToDisplay:=dosya.Name
Cells(c, 1).Select
Cells(c, 1).Formula = dosya.Name '&dosya.Path
Cells(c, 2).Formula = FileNameOnly(.FoundFiles(c))
Cells(c, 3).Formula = FileLen(.FoundFiles(c))

Next

If Range("a1").Value = "" Then
MsgBox ("Böle bir Dosya Yok yada / Dosya İçerisinde veri yok")
End If
ActiveSheet.UsedRange.Name = "Data"
Worksheets("pivot").PivotTables("PivotTable1").PivotCache.Refresh
End Sub[/vb:1:9eada8cd72]

Kullanımı Kolay Oldugu için paylaşmak istedim.Umarım Bu Çözümde İşinizi Görür.

 

[beyaz34]

Sayın RAKKAS tesekkürler.