Previous page | 1 | Next page
Facebook  

Aiuto per copiare e duplicare intervallo di righe più volte

Last Update: 1/9/2020 6:45 PM
Author
Print | Email Notification    
Post: 123
Registered in: 7/4/2012
Junior User
2013
OFFLINE
1/5/2020 6:31 PM
 
Modify
 
Delete
 
Quote

https://www.freeforumzone.com/mobile/d/11672326/Listbox-ricerca-con-testo/discussione.aspx
Solo per dirTi che nel post 29/12/2019 12.56, ho scritto ...Set sh1 = ActiveWorkbook.Worksheets("Elenco Prezzi2") per evitare l'errore in apertura.
Adesso rimodifico il pensiero, basta modificare in Workbook_Open
Sub Workbook_Open()
Sheets("Elenco Prezzi2").Activate
End Sub
Poi mettere in SetFg()
Set sh1 = Worksheets("Elenco Prezzi2") ecc ecc
Vedo diversi altri errori (tipo la convalida dati in B15 con tanti spazi), inoltre il fatto che NON dichiari mai le variabili

Riguardo la domanda (il bottone, a me in errore)
Sub DoppiaMacro3()
Dim tot As Long 'variabile
If Controllo = False Then
' EX (copy) e poi in cella selezionata incolla per aggiungere 10 righe
Controllo = True
Else
tot = InputBox("quante righe aggiungere", 0) ' ho valorizzato la variabile
' EX (copy) e poi in cella selezionata incolla per tot righe
Controllo = False
End If
End Sub
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 10:02 PM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.1] - Copyright © 2000-2020 FFZ srl - www.freeforumzone.com