La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
ciao
se selezioni C1 scrive in M2 i nomi come testo
ed elimina i doppioni
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E1")) Is Nothing Then
Target.Value = Date
End If
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then
Range("M2:M1000").Value = Range("L2:L1000").Value
ActiveSheet.Range("Rielaborazione_Lista[Transiti]").RemoveDuplicates Columns:=1 _
, Header:=xlYes
Range("E2").Select
End If
End Sub
Si funziona ma preferivo che la richiesta fosse quella che avevo fatto io. Ma fa la sua funzione quindi va bene lo stesso. Grazie.
ciao
onestamente non ho ancora capito cosa cercavi di fare🤔
e questa macro ha pone ancora delle domande.
se cambi la lista dei nomi vuoi che i testi vengano uno sotto l'altro
o va bene che siano cancellati e riscritti
perchè se faccio click su c1 il cursore va su E2?
ciao
perchè l'ho scritto nella macro
ActiveSheet.Range("Rielaborazione_Lista[Transiti]").RemoveDuplicates Columns:=1 _
, Header:=xlYes
Range("E2").Select
End If
End Sub
puoi cambiarlo a piacere
Ok ma intendo dire è obbligatorio che punti ad una cella facendo click in c1 o si può anche togliere?
ciao
puoi toglierlo mati resta selezionata la colonna C
a questo punto era meglio un comando a pulsante, dal momento che un’operazione manuale va fatta comunque, si clicca sul pulsante e restituisce i valori in formato testo. La selezione della cella C1 a mio avviso c’entra poco, ancor meno che il cursore si sposti su una cella vuota per eliminare i duplicati.
ciao
in automatico ( è un'illusione )non si fa niente
tutto deve essere attivato...come e quando lo decidi tu
ma l'evento che attiva la macro lo devi avere e questo vale per tutto non solo per excel.
anche le formule hanno bisogno di un evento ....anche se noi lo chiamiamo automatico il ricalcolo.
Il cursore lo faccio uscire per eliminare la selezione dalla colonna C non è necessario
alla prima cella che selezioni sparisce.
Il cursore che si sposta non mi piace ma funziona. Preferivo un pulsante da premere. Ma comunque va bene. Ho messo il cursore in m2 che è la colonna dove mi restituisce i duplicati come testo.
Ciao avrei bisogno della stessa funzione anche su questo file:
Ho provato cosi ma non mi va. Probabilmente sbaglio qualcosa
ActiveSheet.Range("Reshape_timbrature_v02__5[Dipendente]").RemoveDuplicates Columns:=1 _
, Header:=xlYes
Range("M4").Select
End If
End Sub
ciao
a me funziona
Range("M2:M1000").Value = Range("L2:L1000").Value
ActiveSheet.Range("Tabella2[Dipendente]").RemoveDuplicates Columns:=1, Header:= _
xlYes
No tabella2 non centra i duplicati deve rimuoverli da Reshape_timbrature_v02__5[Dipendente
prova a vedere, funziona ma se clicco su m3 mi cancella il duplicato e me lo mette come testo ma se erroneamente clicco di nuovo su m3 mi cancella anche il duplicato come testo. è normale?
