Risultati da 1 a 18 di 18

Discussione: macro per inserimento valore su colonne diverse



  1. #1
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    macro per inserimento valore su colonne diverse

    salve a tutti.
    Ho un problema con il file excel allegato perchè vorrei che i tre tasti di destra svolgessero il compito di quelli di sinistra ma nella colonna B
    grazie comunque.
    File Allegati File Allegati

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: macro

    Citazione Originariamente Scritto da xbux64 Visualizza Messaggio
    salve a tutti.
    Ho un problema con il file excel allegato perchè vorrei che i tre tasti di destra svolgessero il compito di quelli di sinistra ma nella colonna B
    grazie comunque.
    Ciao xbux64 dovresti darmi la password del foglio se vuoi che gli dia un'occhiata

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: macro

    Ecco il file sistemato

    ciao.

    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: macro

    Ciao,
    non ho potuto vedere il tuo codice perchè bloccato da password, ma ne ho riscritto uno io.

    Codice: 
    Sub ripetizione_s()
    Dim x As Integer
        With Sheets(1)
                 x = 1
            While Cells(x, 1) <> ""
                 x = x + 1
            Wend
                .Cells(x, 1) = "RIPETIZIONE"
                .Cells(4, 6) = Cells(4, 6) + 1
        End With
    End Sub
    Codice: 
    Sub medio_s()
    Dim x As Integer
        With Sheets(1)
                 x = 1
            While Cells(x, 1) <> ""
                 x = x + 1
            Wend
                .Cells(x, 1) = "MEDIO"
                .Cells(4, 6) = Cells(4, 6) + 1
        End With
    End Sub


    Codice: 
    Sub lungo_s()
    Dim x As Integer
        With Sheets(1)
                 x = 1
            While Cells(x, 1) <> ""
                 x = x + 1
            Wend
                .Cells(x, 1) = "LUNGO"
                .Cells(4, 6) = Cells(4, 6) + 1
        End With
    End Sub
    Codice: 
    Sub cancella_tutto()
        With Sheets(1)
        Dim uRiga1 As Long, uRiga2 As Long
            uRiga1 = .Cells(Rows.Count, 1).End(xlUp).Row
            uRiga2 = .Cells(Rows.Count, 2).End(xlUp).Row
            .Range("A1:A" & uRiga1) = ""
            .Range("B1:B" & uRiga2) = ""
            .Cells(4, 6) = ""
            .Cells(4, 20) = ""
        End With
    End SubL
    Codice: 
    Sub ripetizione_d()
    Dim x As Integer
        With Sheets(1)
                 x = 1
            While Cells(x, 2) <> ""
                 x = x + 1
            Wend
                .Cells(x, 2) = "RIPETIZIONE"
                .Cells(4, 20) = Cells(4, 20) + 1
        End With
    End Sub
    Codice: 
    Sub medio_d()
    Dim x As Integer
        With Sheets(1)
                 x = 1
            While Cells(x, 2) <> ""
                 x = x + 1
            Wend
                .Cells(x, 2) = "MEDIO"
                .Cells(4, 20) = Cells(4, 20) + 1
        End With
    End Sub
    Codice: 
    Sub lungo_d()
    Dim x As Integer
        With Sheets(1)
                 x = 1
            While Cells(x, 2) <> ""
                 x = x + 1
            Wend
                .Cells(x, 2) = "LUNGO"
               .Cells(4, 20) = Cells(4, 20) + 1
        End With
    End SubÏ
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: macro

    Ciao Ges credo che la cosa non finirà quì questo è tutto il codice VBA

    Codice: 
    Sub CANCELLA_TUTTO()ActiveSheet.Unprotect Password:="mona"
    Range("A1", "B100").ClearContents
    Range("AR1", "AR37").ClearContents
    Range("A1").Select
    Range("F4") = 0
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_1()
    ActiveSheet.Unprotect Password:="mona"
    Cells(1, 1).Select
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "RIPETIZIONE"
    Cells(volte + 1, 1).Select
    Range("F4").FormulaLocal = "=CONTA.VALORI(A1:B100)"
    'Range("F4") = volte - Range("AR38")
    
    
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_2()
    ActiveSheet.Unprotect Password:="mona"
    Cells(2, 1).Select
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "MEDIO"
    Cells(volte + 1, 1).Select
    Range("F4").FormulaLocal = "=CONTA.VALORI(A1:B100)"
    'Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_3()
    ActiveSheet.Unprotect Password:="mona"
    Cells(3, 1).Select
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "LUNGO"
    Cells(volte + 1, 1).Select
    Range("F4").FormulaLocal = "=CONTA.VALORI(A1:B100)"
    'Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_4()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "RIPETIZIONE"
    Cells(volte + 1, 1).Select
    
    
    Range("i4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_5()
    ActiveSheet.Unprotect Password:="mona"
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "5"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_6()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "6"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_7()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "7"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_8()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "8"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_9()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "9"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_33()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "33"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_34()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "34"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_35()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "35"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_36()
    ActiveSheet.Unprotect Password:="mona"
    
    
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "36"
    Cells(volte + 1, 1).Select
    
    
    Range("F4") = volte - Range("AR38")
    
    
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    
    
    Sub zero()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 0 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub uno()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 1 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub due()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 2 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub tre()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 3 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub quattro()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 4 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub cinque()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 5 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub sei()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 6 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub sette()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 7 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub otto()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 8 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub undici()
    ActiveSheet.Unprotect Password:="mona"
    For volte = 1 To 37
    If Cells(volte, 14) = 11 Then
    Cells(volte, 44) = 1
    End If
    Next volte
    ActiveSheet.Protect Password:="mona"
    End Sub
    
    
    Sub numero_1_1()
    ActiveSheet.Unprotect Password:="mona"
    
    
    Cells(1, 2).Select
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "RIPETIZIONE"
    Cells(volte + 1, 2).Select
    Range("F4").FormulaLocal = "=CONTA.VALORI(A1:B100)"
    'Range("F4") = volte - Range("AR38")
    
    
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_2_2()
    ActiveSheet.Unprotect Password:="mona"
    Cells(2, 2).Select
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "MEDIO"
    Cells(volte + 1, 2).Select
    Range("F4").FormulaLocal = "=CONTA.VALORI(A1:B100)"
    'Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    Sub numero_3_3()
    ActiveSheet.Unprotect Password:="mona"
    Cells(3, 2).Select
    volte = ActiveCell.Row
    
    
    
    
    ActiveCell = "LUNGO"
    Cells(volte + 1, 2).Select
    Range("F4").FormulaLocal = "=CONTA.VALORI(A1:B100)"
    'Range("F4") = volte - Range("AR38")
    
    
    ActiveSheet.Protect Password:="mona"
    End Sub
    come vedi ci sono tante routine delle quali non sappiamo a cosa servono e quelle relative alla richiesta fanno un lavoro che... bho!?!?!?!
    Per quanto riguarda la colonna B ho dovuto creare altre 3 routine numero1_1 - 2_2 -3_3 e la 1 - 2 - 3 ho fatto delle modifiche (in rosso)

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: macro

    Ges ti ho mandato un PM

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    977

    Re: macro

    Visto che sei nuovo del Forum, è gradita una presentazione QUI, ti consiglio anche di leggerti il “Regolamento” e di visitare la sezione “Annunci dello staff”, naturalmente i file allegati devono essere senza password se vuoi che qualcuno ti aiuti.

  8. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    977

    Re: macro

    @xbux64
    P.S. se avessi letto il regolamento ti saresti accorto dell'art.5
    Regola nr.5 "il titolo"
    Assicurarti che il titolo sia il più chiaro possibile e che corrisponda al problema, usa termini appropriati che saranno usati come meta tag per una eventuale ricerca su Google.
    Evita di scrivere frasi inutili come “Aiuto” “Urgente ” “Non ci capisco niente” e "sono bloccato"
    perché potrebbero rivelarsi non appropriate e di conseguenza le tue discussioni potrebbero essere non lette.
    Ti consiglio di scrivere titoli che vanno dritto al problema esempio: "come faccio ad analizzare dati....." "come faccio ad estrarre records....." "come faccio a calcolare......." "come creare una TPivot......"
    I titoli ed i testi devono essere scritti in italiano corretto, sia grammaticamente che ortograficamente; postare frasi con errori evidenti è sempre una forma di NON rispetto per chi legge.
    per questa volta lo cambio io

  9. #9
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: macro

    ok grazie

  10. #10
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: macro

    sempre su questo file avrei bisogno di codice per cancellare l'ultimo dato inserito sia a destra che a sinistra grazie

  11. #11
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: macro

    grazie vorrei inoltre, sempre sul file prova che mi cancellasse l'ultimo dato inserito sia a destra che a sinistra, scusate se ho rimesso il messagggio non sono stato capace di cancellare il precedente

  12. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: macro

    Citazione Originariamente Scritto da xbux64 Visualizza Messaggio
    grazie vorrei inoltre, sempre sul file prova che mi cancellasse l'ultimo dato inserito sia a destra che a sinistra ...
    Ti abbiamo scritto in più persone, con ti ti stai riferendo?
    A quale file e foglio ti riferisci e quale dato a destra e a sinistra intendi?
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  13. #13
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: macro

    @ xbux64
    Il Tuo codice, non va bene.
    Se selezioni una cella qualsiasi e premi qualsiasi tasto, scrive in "quella cella".
    Meglio che usi il fili di Ges, comunque per quanto hai richiesto aggiungi due bottoni ed abbina a questo codice

    Codice: 
    Sub Cancella_S()
    Dim Ur As Long
    Ur = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Unprotect Password:="mona"
    Cells(Ur, 1) = ""
    ActiveSheet.Protect Password:="mona"
    End Sub
    
    Sub Cancella_D()
    Dim Ur As Long
    Ur = Range("B" & Rows.Count).End(xlUp).Row
    ActiveSheet.Unprotect Password:="mona"
    Cells(Ur, 1) = ""
    ActiveSheet.Protect Password:="mona"
    End Sub

  14. #14
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: macro

    Grazie Raffaele ma funziona sulla colonna A ma non sulla B non capisco sono identiche

  15. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: macro

    xbux64 ma hai visto il mio file che ho allegato nel #3 ?

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #16
    L'avatar di xbux64
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Fidenza
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: macro

    si Balo ti ringrazio funziona alla grande se non ti dispiace avrei bisogno anche di un codice per due tasti sinistra, destra che mi cancella l'ultimo dato inserito

  17. #17
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: macro

    Ho sbagliato nel secondo codice, Cancella_D
    Da modificare Cells(Ur, 1) = "" in Cells(Ur, 2) = ""

  18. #18
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: macro

    Citazione Originariamente Scritto da xbux64 Visualizza Messaggio
    si Balo ti ringrazio funziona alla grande se non ti dispiace avrei bisogno anche di un codice per due tasti sinistra, destra che mi cancella l'ultimo dato inserito
    ciao xbux eccoti il file con l'aggiunta della cancellazione dell'ultimo valore aggiunto in colonna A o in colonna B

    Fammi sapere - ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

Discussioni Simili

  1. [Risolto] Trovare righe uguali in colonne diverse
    Di Angelo95 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 14/03/17, 16:51
  2. [Risolto] Userform Ricerca su colonne diverse
    Di tiziano64 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 27/02/17, 15:26
  3. Dividere lettere di una parola in diverse colonne
    Di Simydo nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 21/06/16, 19:48
  4. Formattazione condizionale confrontando dati in colonne diverse
    Di G.Bove nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 28/05/16, 11:54
  5. Creare colonna excel con dati che dipendono da due colonne diverse
    Di massiguana nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 13/05/16, 20:42

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •