Footer dintr-o celulă

[IPP]

Buna ziua

Incercati:

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, ActiveSheet.Range("f3:f4")) Is Nothing Then
     If Target.Columns.Count > 1 Then Exit Sub

     If Target = Range("F3") Then Target.Offset(1, 0).Value = ""
     If Target = Range("F4") Then
      ActiveSheet.PageSetup.CenterFooter = "&""Arial,Bold""&20" & Target.Value
      Sheets("Sheet3").PageSetup.CenterFooter = "&""Arial,Bold""&20" & Target.Value
     End If
    End If
End Sub

IP

[bvlucretiu]

Bună!
Nu funcţionează!
Îmi dă mesajul
"Run-time error '9':
Subscript out of range"

[IPP]

Fisierul atasat de mine a fost testat pe Excel 2003 si 2010. Nu am avut erori

Verificati modul in care ati adaptat codul. Poate dvs. nu aveti nicio foaie numita "Sheet3". Atunci e normal sa aveti eroare.

Eventual atasati fisierul, golit de orice informatie confidentiala.

[bvlucretiu]

Bună!
Bineînţeles, mi-am dat seama şi am modificat la mine este sheet7 pagina unde doresc să îmi mai afişeze acel "Footer" şi am modificat doar 7 în loc de 3 iar mesajul este acelaşi!

[bvlucretiu]

Bună!
Aţi avut dreptate, am înlocuit sheet 7 cu denumirea dată efectiv sheetului 7 şi aşa merge(Scrisesem sheet 7 din lista de la VBA Project iar acum am înlocuit cu ce este scris în paranteză lângă sheet7)!
Vă mulţumesc mult!