Copiare celle alternate

Question

BuonGiorno , ho una domanda forse sciocca .

Ho un foglio di Excel che contiene tre colonne ( Codice , Descizione e Quantità ) e devo trasferire i dati in SAP .

La maschera di SAP mi da accdesso ad una cella si ed una no .

Mi sarebbe molto comodo una macro che , ad esempio nello shhet2 , mi copiasse il contenuto delle celle A , B ,C splittate in modo da

poter fare un copia ed in colla in SAP .

Grazie per l'attenzione

Answer 1

Ciao IvoAllinoro,

vedi se questa prima approssimazione somiglia a ciò che vuoi ottenere:

Public Sub Test1()

' --- PERSONALIZZARE ---------- >

'

Const cstrSrcSheet  As String = "Foglio1"

Const cstrSrcRange  As String = "A9"

Const clngSrcCols   As Long = 3

Const cstrDstRange  As String = "A1"

'

' --- PERSONALIZZARE ---------- <

Dim wbk     As Excel.Workbook

Dim wshSrc  As Excel.Worksheet

Dim wshDst  As Excel.Worksheet

Dim rngSrc  As Excel.Range

Dim rngDst  As Excel.Range

Dim r       As Long

Dim c       As Long

    Set wbk = Application.ThisWorkbook

    With wbk

      Set wshSrc = .Worksheets(cstrSrcSheet)

      Set wshDst = .Worksheets.Add

    End With

    Set rngSrc = wshSrc.Range(cstrSrcRange)

    Set rngDst = wshDst.Range(cstrDstRange)

    r = 0

    Do Until IsEmpty(rngSrc.Offset(r).Value)

      For c = 0 To clngSrcCols - 1

        rngDst.Offset(r * 2, c).Value = rngSrc.Offset(r, c).Value

      Next

      r = r + 1

    Loop

    Set rngDst = Nothing

    Set rngSrc = Nothing

    Set wshDst = Nothing

    Set wshSrc = Nothing

    Set wbk = Nothing

End Sub

Answer 2

Ciao IvoAllinoro,

spaicente ma qui non funziona così.

Un Quesito, un Thread.

Fa' una nuova domanda e ti sarà risposto.

Answer 3

Data la precedente gentile risposta , vorrei azzardare con un'altro quesito :

Una Cartella contenente un numero variabile di file *.xls tutti con diverso nome .

Vorrei creare un file tipo " Cumulativo.xlsm " che mediante macro apra , uno alla volta i file della cartella, ne copi il contenuto del primo foglio (spesso di nome diverso ) in uno sheet di  " Cumulativo.xlsm "  poi  , apra il successivo e facendo il medesimo copia e incolla lo accodi a quanto fatto prima e così via sino all'ultimo file .

Grazie anticipatamente

Answer 4

Grazie a te IvoAllinoro del cortese riscontro.

Answer 5

Perfetto ! 

Grazie