Ho creato una macro semplice che mi copia dei valori da un form di inserimento ad un foglio dove questi valori sono "spalmati" su una riga, per aggiungere righe successive come indico alla macro di scriverli nella prima riga libera disponibile?? successiva alle altre già scritte??
la macro è questa
- Codice: Seleziona tutto
Sub Scrivisutxtcg()
'
' Scrivisutxtcg Macro
'
'
Sheets("PREOUT").Select
ActiveCell.FormulaR1C1 = "=CG!Codice_Ospite"
Range("B1").Select
ActiveCell.FormulaR1C1 = "=CG!Data_Arrivo_OS"
Range("C1").Select
ActiveCell.FormulaR1C1 = "=CG!Cognome_OS"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=CG!Nome_OS"
Range("E1").Select
ActiveCell.FormulaR1C1 = "=CG!Codice_Sesso_OS"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=CG!Data_Nascita_OS"
Range("G1").Select
ActiveCell.FormulaR1C1 = "=CG!Codice_Comune_Nascita_OS"
Range("H1").Select
ActiveCell.FormulaR1C1 = "=CG!SIGLIA_PROV_OS"
Range("I1").Select
ActiveCell.FormulaR1C1 = "=CG!Codice_stato_Nascita_OS"
Range("J1").Select
ActiveCell.FormulaR1C1 = "=CG!R10C12"
Range("K1").Select
ActiveCell.FormulaR1C1 = "=CG!Codice_Comune_Res_OS"
Range("L1").Select
ActiveCell.FormulaR1C1 = "=CG!Sigla_Prov_OS"
Range("M1").Select
ActiveCell.FormulaR1C1 = "=CG!Codice_Stato_Res_OS"
Range("N1").Select
ActiveCell.FormulaR1C1 = "=CG!Cod_Doc_OS"
Range("O1").Select
ActiveCell.FormulaR1C1 = "=CG!Numero_Documento_OS"
Range("P1").Select
ActiveCell.FormulaR1C1 = "=CG!Codice_Comune_Ril_OS"
Range("Q1").Select
End Sub
Grazie