veriye göre sayfa oluşturmak ve satırları kopyalamak

[samurayhiya]

ben salak bi insanım telaşın verdiği aceleyle inanın fark etmedim. teşeekür ederim sayfa burda...

 

[szaim]

Köprü

Dosyanız ektedir inceleyin.

 

[Levent Menteşoğlu]

Bende ekte bir dosya hazırladım. Sayfayı istediğiniz şekilde kopyalayın linkler sayfaya göre ayarlanacaktır. Kod aşağıdadır, Thisworkbook sayfasına yazılmıştır.

[vb:1:78b441fd3c]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
For Each linkler In ActiveWorkbook.ActiveSheet.Hyperlinks
linkler.SubAddress = Right(linkler.SubAddress, Len(linkler.SubAddress) - InStr(linkler.SubAddress, "!"))
Next
End Sub
[/vb:1:78b441fd3c]

 

[samurayhiya]

LEVENTM sana çok ama çok teşekkür ederim artık bu site için yapmam gereken ne varsa yapmaya hazırım. :yazici: işmi öyle bir kolaylaştırdın ki en az 20 günümü kurtardın ... bir komutun artık 40 yıl hatırı var.