Errore 1004 Excel

Question

Salve,

è la prima volta che tento di creare una maschera per excel, ho iniziato a creare semplicemente ad un inserimento dati con un semplice bottone.

Il primo record viene inserito correttamente, mentre se provo ad inserire il secondo, mi da errore 1004.

Sono alle prime armi con VBA.

Il codice è il seguente

Private Sub CommandButton1_Click()

Dim UltimaRiga As Long

If Range("A2").Value = "" Then

Cells(2, 1).Value = TextBox1.Value

Else

UltimaRiga = Range("A1").End(x1Down).Row + 1

Cells(UltimaRiga, 1).Value = TextBox1.Value

End If

End Sub

Answer 1

Ciao Nicola,

Ho un'altra domanda,

Sono riuscito a creare una maschera per inserimento dati funzionanti, però non riesco a capire come salvare la maschera o esportarla su altri fogli di lavoro, devo rifare tutto di nuovo una volta chiuso excel.

Puoi darmi una mano anche su questo?

Ti consiglio di aprire un altro thread per questa nuova richiesta. Inoltre, ti suggerisco di caricare un file di esempio per dimostrare i risultati richiesti.

===

Regards,

Norman

Answer 2

Ciao Nicola,

Grazie per l'aiuto, adesso mi funziona.

Buona giornata

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Ho un'altra domanda,

Sono riuscito a creare una maschera per inserimento dati funzionanti, però non riesco a capire come salvare la maschera o esportarla su altri fogli di lavoro, devo rifare tutto di nuovo una volta chiuso excel.

Puoi darmi una mano anche su questo?

Grazie in anticipo

Answer 4

Grazie per l'aiuto, adesso mi funziona.

Buona giornata

Answer 5

Ciao Nicola,

è la prima volta che tento di creare una maschera per excel, ho iniziato a creare semplicemente ad un inserimento dati con un semplice bottone.

Il primo record viene inserito correttamente, mentre se provo ad inserire il secondo, mi da errore 1004.

Sono alle prime armi con VBA.

Il codice è il seguente

Private Sub CommandButton1_Click()

Dim UltimaRiga As Long

If Range("A2").Value = "" Then

Cells(2, 1).Value = TextBox1.Value

Else

UltimaRiga = Range("A1").End(x1Down).Row + 1

Cells(UltimaRiga, 1).Value = TextBox1.Value

End If

End Sub

A me il codice funziona e ho modificato il tuo codice solo per accordarmi con le mie predilezioni personali.

Potresti scaricare il mio file di prova NicolaB20200831.xlsm

Se tu dovesse ancora avere un problema, ti chiederei gentilmente di caricare il file problematico, dopo averlo depurato dei dati sensibili, su un servizio di condivisione di file, ad esempio Microsoft OneDrive o DropBox, e postare un link al file in una risposta qui.

Per caricare il file su Microsoft OneDrive, vedi:

   Condividere file e cartelle di OneDrive

Per caricare il file su DropBox, vedi:

Come faccio a condividere file e cartelle in Dropbox?

===

Regards,

Norman