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 a tutti. Non ho molta esperienza con il VBA e volevo un aiuto da parte vostra. Ho un file dove inserisco una serie di nomi e a fianco dei numeri che possono essere ore lavorate o altro. La mia difficoltà è questa: una volta che dalla userform seleziono il nome non so che stringa utilizzare per accodare il numero al nome selezionato. Con le funzioni “End” e “Offset” mi funziona su celle vuote ma i nomi molte volte si ripetono.
ciao
quel che riesco a fare con il vba
se inserisci un nome che manca dalla colonna
te lo aggiunge sotto
poi scrivi le ore e INSERISCI
quest'ultimo scrive le ore nella prima colonna libera
se non le metti la cella è bruciata perciò bisognerà mettere degli allarmi
Private Sub CmbNome_Change()
If Application.CountIf(Sheets("Foglio1").Range("A4:A5000"), CmbNome) = 0 Then
nriga = 4
While Cells(nriga, 1) <> ""
nriga = nriga + 1
Wend
Cells(nriga, 1) = CmbNome
End If
End Sub
Private Sub CmdInserisci_Click()
Dim Lista As Range
Set Lista = Sheets("Foglio1").Range(Cells(4, 1), Cells(4, 1).End(xlDown))
For Each CL In Lista
If CL = CmbNome Then
UC = Cells(CL.Row, Columns.Count).End(xlToLeft).Column + 1
Cells(CL.Row, UC) = TxtOre
End If
Next
End Sub
Grazie! 🖐️
