Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 13

copia/incolla

  1. #1
    oandrea61 non  in linea Novello
    ragazzi sto creando un programmino in exel per tenere la mia contabilita giornaliera e ho un problema

    mi servirebbe una macro per cercare un dato numerico che si trova nella colonna A del "foglio10" tagliare l intera riga dove si trova il dato e incollarlo nella prima riga libera del "foglio1" . Linserimento del dato numerico da trovare lo vorrei fare con una InputBox grazie

  2. #2
    L'avatar di dodo47
    dodo47 non  in linea Topo di biblioteca
    Ciao

    E' necessario (per come ho sviluppato io) che nel foglio1, in A1 e A2 tu scriva qualcosa (un titolo o altro). Quindi per esempio:
    FOGLIO1 A1 scrivi : Riga
    FOGLIO1 A2 scrivi : copiata

    Poi nel folgio10 crea un pulsante e ci abbini la seguente sub:

    Sub copia_riga()
    valore = InputBox("Immetti il valore :")
    If valore = "" Then Exit Sub
    With Worksheets("Foglio10").Range("A1:A100")
        Set X = .Find(valore, LookIn:=xlValues)
        R = X.Row
    End With
        Rows(R & ":" & R).Select
        Selection.Cut
        Sheets("Foglio1").Select
        Range("A1").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        ActiveSheet.Paste
    End Sub
    

    fammi sapere
    Ultima modifica di TheTruster; 11-01-2009 12:14 

  3. #3
    oandrea61 non  in linea Novello
    Quote Originariamente inviato da oandrea61 Visualizza il messaggio
    ragazzi sto creando un programmino in exel per tenere la mia contabilita giornaliera e ho un problema

    mi servirebbe una macro per cercare un dato numerico che si trova nella colonna A del "foglio10" tagliare l intera riga dove si trova il dato e incollarlo nella prima riga libera del "foglio1" . Linserimento del dato numerico da trovare lo vorrei fare con una InputBox grazie
    per ora grazie ora provo

  4. #4
    oandrea61 non  in linea Novello
    mi da un errore in Range("A1").Select
    Errore nel metodo select per la classa range

  5. #5
    oandrea61 non  in linea Novello
    ho risolto con Google ti ringrazio tantissimo sicuramente avro bisogno ancora del tuo tempo grazie di nuovo

  6. #6
    oandrea61 non  in linea Novello
    sono gia qui

    ti chiedevo e possibile, invece di usare un bottone sul "foglio10" far partire la macro con un Ctrl+...... ? se si cosa bisogna cambiare perche ho provato ma mi da un errore 400

  7. #7
    L'avatar di dodo47
    dodo47 non  in linea Topo di biblioteca
    Fai registra macro (per esempio pippo) e nel box indichi il tuo ctrl +......
    poi interrompi la registrazione> vai in modifica di pippo e ci incolli la macro precedente
    (non so se ci sono vie pi brevi)

    ANZI approfitto per chiedere a pi esperti se una volta creata una macro DOPO si possa assegnarle un tasto di scelta rapida ctrl+....


    ciao

  8. #8
    L'avatar di dragone bianco
    dragone bianco non  in linea Amanuense
    Basta andare su Strumenti-> Macro ->Macro (li visualizzate tutte le macro, tutte le sub memorizzate in un Modulo o +Moduli)
    Selezionare la macro che ci interessa e cliccare su Opzioni e da li impostate l'associazione Ctrl+Tasto

    Ciao
    ℹ️ Leggi di pi su dragone bianco ...

  9. #9
    oandrea61 non  in linea Novello
    ragazzi abbiate pazienza
    il programma se fatto girare con un pulsante in "foglio10"funziona fatto girare come sub con ctrl+c per esempio mi da errore

  10. #10
    L'avatar di dodo47
    dodo47 non  in linea Topo di biblioteca
    il Crtl+c lo devi fare dal foglio10, altrimenti modifica la macro:


    Sub copia_riga()
    valore = InputBox("Immetti il valore :")
    If valore = "" Then Exit Sub
    With Worksheets("Foglio10").Range("A1:A100")
    Set X = .Find(valore, LookIn:=xlValues)
    R = X.Row
    End With
    Worksheets("Foglio10").Select
    Rows(R & ":" & R).Select
    Selection.Cut
    Sheets("Foglio1").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    End Sub
    
    Ultima modifica di dodo47; 11-01-2009 13:11 

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Copia/Incolla
    Da BLUES nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 12-12-2019, 14:33
  2. copia e incolla
    Da ceklo nel forum Visual Basic 6
    Risposte: 8
    Ultimo Post: 23-06-2010, 17:56
  3. copia e incolla
    Da orpo970 nel forum Visual Basic 6
    Risposte: 8
    Ultimo Post: 26-02-2009, 23:04
  4. copia e incolla
    Da bill nel forum Visual Basic 6
    Risposte: 8
    Ultimo Post: 08-02-2007, 07:06
  5. Copia incolla
    Da keanurives nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 22-02-2005, 18:26