Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Numeri con un click

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Numeri con un click

Postdi ahidai » 20/11/13 11:25

Ciao Anthony, ciao Flash,
Per Flash:
Per quanto riguarda i fogli non capisco... Se all'apertura nascondi tutti i fogli tranne il foglio1 come fai ad aprire gli altri fogli?
hai un pulsante?

Si uso dei pulsanti che si spostano nei vari fogli, e l'indicazione che mi hai dato per quanto riguarda nascondere i fogli va benissimo.
Per Flash e Anthony:
Finalmente sono riuscito a capire perchè mi dava l’errore "di run-time '13' tipo non corrispondente", allora il range per l'inserimento dei numeri è A3:A100, nella cella A2 ho inserito la descrizione della colonna "NR." ed è il testo che manda in errore il codice, infatti togliendo "NR." il codice funziona benissimo.
C'è la possibilità che possa scrivere qualunque testo nelle celle A1 e A2 in modo che il codice funzioni.
Grazie di nuovo e vi auguro una buona giornata.
Ciao.
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33

Sponsor
 

Re: Numeri con un click

Postdi Flash30005 » 20/11/13 11:42

Prova questa macro
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then Range("B2").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row
CheckArea = "A3:A100"
Dim Vs(20) As Integer
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    Application.EnableEvents = False
    If Selection.Value <> 0 Then
        Selection.ClearContents
    Else
    On Error Resume Next
        For Cs = 2 To UR
            NS = Range("A" & Cs).Value
            Vs(NS) = NS
        Next Cs
        For VV = 1 To 20
            If Vs(VV) = 0 Then
                Vs(VV) = VV
                GoTo SaltaS
            End If
        Next VV
SaltaS:
        If VV <= 20 Then Selection.Value = VV
        On Error GoTo 0
    End If
End If
Application.EnableEvents = True
End Sub


Quando digiti in A2 la riga codice aggiunta selezionerà la cella B2 e non A3 evitando di andare in errore (1° caso)
Inoltre se selezioni A2 e premi invio è come se selezionassi A3: prima andava in errore mentre ora è come se avessi cliccato sul A3

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Numeri con un click

Postdi ahidai » 20/11/13 21:13

Grazie Flash va benissimo, grazie di nuovo per la disponibilità anche a Anthony.
Ciao
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Numeri con un click":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti