SG Fórum - Excel kérdés - #855

SG Fórum - Excel kérdés - #855

Fórum / Felhasználói programok

Delila1 2010. márc. 12. 19:02 | válasz | #855
Kicsit kevesebb sorral:

Sub Címmel()

Dim lap As String

Dim cím As String

lap = ActiveSheet.Name

cím = Selection.Address

Sheets("Munka1").Cells(1).Formula = "=" & lap & "!" & cím

End Sub

Másik megoldás, ahol relatív hivatkozás lesz a Munka1!A1-ben:

Sub RelHiv()

Dim lap As String

Dim sor As Integer

Dim oszlop As Integer

lap = ActiveSheet.Name

sor = ActiveCell.Row

oszlop = ActiveCell.Column

Sheets("Munka1").Cells(1).Formula = "=" & lap & "!" & Chr(oszlop + 64) & sor

End Sub

Válasz 'Tyco' üzenetére (#852)