nel cercare la soluzione ad un mio problema, ho trovato questo vs.thread : http://www.pc-facile.com/forum/viewtopic.php?t=82459
Ma la mia necessità è leggermente diversa.
Ossia cancellare tutta la riga riferita al lavoratore (selezionato dal form presente in Anagrafica) in qualsiasi foglio si trovino escluso i fogli Dashboard e Verifica presenza.
https://www.dropbox.com/s/qa30xp9vj5...2%2B.xlsm?dl=0
Con le mie conoscenze attuali sono arrivato a creare un tasto Elimina (sempre nel form) ed un macro per la pulizia della listbox e da due fogli di lavoro ma del solo nominativo infatti lascia "briciole" in giro ( RIF#):
- Codice: Seleziona tutto
Private Sub Label38_Click()
Dim Silinecek_Satir, i As Long
Dim cevap As String
If TextBox1 = "" Or TextBox2 = "" Then
Call MsgBox("Selezionare il contatto da eliminare", vbInformation, "Avviso")
Exit Sub
End If
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Il contatto verrö cancellato." _
& vbCrLf & "Vuoi procedere?", vbYesNo, "Avviso")
If cevap = vbYes Then
Yeni_mi = True
Silinecek_Satir = ListBox1.ListIndex + 3
Sheets("Anagrafica").Rows(Silinecek_Satir).Delete
Sheets("0_Nuovo assunto").Rows(Silinecek_Satir + 2).Delete
ListBox1.RemoveItem ListBox1.ListIndex
End If
End If
End Sub
Attendo vs. indicazioni
Grazie