la formula funziona bene, a prescindere da dove inizia il conteggio( si parlava dalla riga A33 ,ma i miei dati arrivano alla riga A3333 )...te la riporto per intero :
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "A:A"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If Mid(Target, 1, 2) = "" Then Exit Sub
RigaC = Target.Row
Foglio = Name
Call CompilaDati
End If
End Sub
Public RigaC As Integer, Foglio As String
Sub CompilaDati()
UBI = Worksheets("form richiesta").Range("A3333").End(xlUp).Row + 1
Worksheets("censimento").Range("A" & RigaC & ":M" & RigaC).Copy Destination:=Worksheets("form richiesta").Range("A" & UBI)
End Sub
come potrai capire, le macro mi fanno "destinare" dal folgio "censimento" al foglio "form richiesta" la riga con i dati sulla quale clikko ( scelgo la cella in colonna A, clikko, e la riga arriva al foglio form richiesta ) . proprio le celle in colonna A , rappresentano un codice che si costruisce con una formula ( stirnga.estrai + data+rif.riga) Quando però i dati arrivano al foglio "censimento", la formula che è nella cella di colonna A del foglio "censimento", resta attiva, facendomi modificare il valore.
per evitare ciò mi occorrerebbe poter trasferire i dati in formato testo, dal foglio "censimento" al foglio "form richiesta ", così da tenere solo i valori e non + le formule.
grazie, ciao