
Sheets("costi").Select
'miocosto = frmFatturazione.txtdata
'Cells(1, 7).Value = miocosto
Dim miocosto As Integer
Set fc = Worksheets("costi").Columns("A").Find(what:="")
Range(fc.Address).Select
miariga = Selection.Row
miocosto = Selection.Row
Range("a" & miariga).Value = frmFatturazione.txtdata
Range("C" & miariga).Value = frmFatturazione.CmbIncaricatoDE
Range("E" & miocosto).Value = frmFatturazione.Costo
Call Ord_costi
Sheets("archivio").Select |
