Problemi dinserimento in celle




  • di patel data: 16/01/2014 07:45:57

    difficile capire e correggere senza avere il file con la userform





  • di Kirotta (utente non iscritto) data: 17/01/2014 18:36:53

    Grazie per avermi risposto!
    Sulla form ho solo 4 tasti cmd1(1) cmd2(2) cmd3(3) cmd4(4) associati a una casella di testo txtStart e

    1 tasto txtStart(START):
    Private Sub cmd1_Click()
    txtStart.Text = 1
    End Sub

    Private Sub cmd2_Click()
    txtStart.Text = 2
    End Sub

    Private Sub cmd3_Click()
    txtStart.Text = 3
    End Sub

    Private Sub cmd4_Click()
    txtStart.Text = 4
    End Sub

    Visto che la cella B1 contiene il nome della colonna B. Quando eseguo la Form vorrei che cliccando sul tasto START (cmdStart) il primo numero che inserisco nella casella di testo (a scelta tramite i 4 pulsanti dei numeri che ho creato) appaia nella cella B2 del Foglio1, il secondo numero (che si sovrascrive al primo nella casella di testo) appaia nella cella B3 sempre del Foglio1 ecc.
    Con il codice che ho scritto io l'inserimento nella colonna B parte da B1
    Sò che fa quello che gli ho detto io visto che ho scritto:

    Sheets("Foglio1").Range("B" & I) = Val(txtStart)

    Ho provato a scrivere:

    Sheets("Foglio1").Range("B2:B100" & I) = Val(txtStart)

    ma mi scive su tutte le celle da B2 a B100 ad es. 1 poi ad es. 4 ma sempre su tutte le celle sovrascrivendo 1 ecc ??????????????????????????????



  • di patel data: 17/01/2014 19:06:38

    ripeto
    difficile capire e correggere senza avere il file con la userform
    tradotto
    ALLEGA il file





  • di Kirotta (utente non iscritto) data: 17/01/2014 19:32:46

    File allegato
    Volevo solo specificarti che io vorrei partire sempre da un foglio bianco invece di cancellare e salvare quando ho terminato

    Grazie ancora



  • di patel data: 18/01/2014 10:37:56

    prova il file allegato prova2





  • di Kirotta (utente non iscritto) data: 18/01/2014 15:10:13

    Perfetto!!!!
    Grazie!!!