Domanda Copiare una text box da un foglio all' altro

HacKmaN

Utente abituale
3 Aprile 2021
259
16
Excel 2007
3
Buonasera ho un problema con la copia da un foglio all' altro di una casella dati, nel file allegato premendo il tasto inserisci parte la macro che si blocca a questo punto

Visual Basic:
  ActiveSheet.PasteSpecial Format:="Oggetto disegno di Microsoft Office", Link _
        :=False, DisplayAsIcon:=False
in pratica la macro deve riportare i dati dal foglio ricetta al foglio database ricette.

https://www.mediafire.com/file/r5glfofanpf50w9/test.xlsm/file


Visual Basic:
Sub Macro2()
'
' Macro2 Macro
'

'
Sheets("Ricetta").Select
    Range("C3:D3").Select
    Selection.Copy
    Sheets("DATABASE RICETTE").Select
    Range("B2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
 
        ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("Ricetta").Select
    Range("C5:D14").Select
    Selection.Copy
    Sheets("DATABASE RICETTE").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Ricetta").Select
    Range("E5:E14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DATABASE RICETTE").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    ActiveCell.Offset(10, 0).Range("A1").Select
    Sheets("Ricetta").Select
    Application.CutCopyMode = False
    Range("D16").Select
    Selection.Copy
    Sheets("DATABASE RICETTE").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    ActiveCell.Offset(1, 1).Range("A1").Select
    Sheets("Ricetta").Select
    Range("E16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DATABASE RICETTE").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Ricetta").Select
    Application.CutCopyMode = False
    Range("G16:K16").Select
    Selection.Copy
    Sheets("DATABASE RICETTE").Select
    Range("E17").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("D3").Select
    Sheets("Ricetta").Select
    Application.CutCopyMode = False
    Range("B22:K32").Select
    Selection.Cut
    ActiveSheet.Paste
    Sheets("DATABASE RICETTE").Select
    ActiveSheet.PasteSpecial Format:="Oggetto disegno di Microsoft Office", Link _
        :=False, DisplayAsIcon:=False
    Range("B2").Select
    Sheets("DATABASE RICETTE").Select
    Range("B2:I17").Select
    Selection.Copy
    Range("B18").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range("B18,B20,C20,B22,C22,B23,B24,B25,B26,C26,C25,C24,C23").Select
    Range("C23").Activate
    ActiveWindow.SmallScroll Down:=6
    Range( _
        "B18,B20,C20,B22,C22,B23,B24,B25,B26,C26,C25,C24,C23,B27,C27,C28,B28,B29,C29,C30,B30,B31,C31,C32" _
        ).Select
    Range("C32").Activate
    ActiveWindow.SmallScroll Down:=3
    Range( _
        "B18,B20,C20,B22,C22,B23,B24,B25,B26,C26,C25,C24,C23,B27,C27,C28,B28,B29,C29,C30,B30,B31,C31,C32,D33,E33,F33,G33,H33,I33" _
        ).Select
    Range("I33").Activate
    ActiveWindow.SmallScroll Down:=-6
    Range( _
        "B18,B20,C20,B22,C22,B23,B24,B25,B26,C26,C25,C24,C23,B27,C27,C28,B28,B29,C29,C30,B30,B31,C31,C32,D33,E33,F33,G33,H33,I33,B18" _
        ).Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-15
    Range("B2").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=6
    Range("B18").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Cut
    Range("B18").Select
End Sub
 

alfrimpa

VBA Expert
Supermoderatore
18 Dicembre 2015
37.931
2.445
67
Napoli
Office 365
1.210
Mah io non ho capito.

Cosa c'entra la textbox?

Riallega il file (non con mediafire meglio filedropper se non riesci a metterlo sul forum per le dimensioni) inserendo a mano il risultato voluto.
 

alfrimpa

VBA Expert
Supermoderatore
18 Dicembre 2015
37.931
2.445
67
Napoli
Office 365
1.210
Hai allegato lo stesso file di prima; non serve a niente.

Devi far vedere dove sta questa descrizione della ricetta e dove deve essere copiata.

Il file lo devi allegare mostrando questo.
 

HacKmaN

Utente abituale
3 Aprile 2021
259
16
Excel 2007
3
la descrizione della ricetta si trova nel foglio ricetta b22:k32 deve essere copiato nel foglio database ricette d3:i15 cmq il file allegato contiene la ricetta


 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!