Sub ArchiviaDato() ' Set wsh = ThisWorkbook.Worksheets("Archivio") Set wsh1 = ThisWorkbook.Worksheets("Modulo") uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row If wsh1.Range("A" & 7) = "" Or wsh1.Range("B" & 7) = "" Or _ wsh1.Range("B" & 12) = "" Or wsh1.Range("B" & 23) = "" Or _ wsh1.Range("A" & 48) = "" Or _ wsh1.Range("B" & 48) = "" Then MsgBox ("VERIFICA I DATI INSERITI"), vbInformation, "ATTENZIONE" Exit Sub End If Range("A7").Select Selection.Copy Range("F10").Select Sheets("Archivio").Select Range("A1").Select ActiveCell.Offset(uriga, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks:= _ False, Transpose:=True ActiveCell.Offset(1, 0).Range("A1").Select Sheets("Modulo").Select Application.CutCopyMode = False Range("F4").Select End Sub
patel45, 19/03/2017 23.13: B7 -> singola come A7 - vsh.Range("B7").Copy vsh1.Range("A7") B12+B23 -> concatenate con spazio - dove le vuoi copiare ? A48+B48 -> concatenate con spazio - dove le vuoi copiare ?
wsh.Range("B7").Copy wsh1.Range("B2")
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks:= _ False, Transpose:=True
Sub ArchiviaDato() ' Set wsh = ThisWorkbook.Worksheets("Archivio") Set wsh1 = ThisWorkbook.Worksheets("Modulo") uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row If wsh1.Range("A" & 7) = "" Or wsh1.Range("B" & 7) = "" Or _ wsh1.Range("B" & 12) = "" Or wsh1.Range("B" & 23) = "" Or _ wsh1.Range("A" & 48) = "" Or _ wsh1.Range("B" & 48) = "" Then MsgBox ("VERIFICA I DATI INSERITI"), vbInformation, "ATTENZIONE" Exit Sub End If mRif = Range("A7") dEmis = Range("B7") mProd = Range("B12") & " " & Range("B23") mDest = Range("A48") & " " & Range("B48") wsh.Cells(uriga + 1, 1) = mRif wsh.Cells(uriga + 1, 2) = dEmis wsh.Cells(uriga + 1, 3) = mProd wsh.Cells(uriga + 1, 4) = mDest End Sub
dodo47, 20/03/2017 09.42: Edit: per evitare che il riferimento 1/2017 venga interpretato come data, potresti modificare: mRif = "'" & (Range("A7")), oppure formattare l'intera colonna A del foglio Archivio come testo e lasciare: mRif = Range("A7")