eliminare righe in più fogli

Hai un problema con Excel?

Nuova discussione

eliminare righe in più fogli
di Sal (utente non iscritto) data: 16/03/2017 11:38:02
Buongiorno a tutti
mi sono già servito ieri di questo forum ricevendo aiuto da Alfredo, Luca e altri risolvendo il mio quesito

ho ancora bisogno del vostro aiuto

Ho necessità di eliminare una riga da un elenco (Foglio1) e contemporaneamente eliminare la riga corrispondente anche nel foglio 2, il tutto selezionando il nome da un elenco a tendina che cerca il nome da eliminare
Il tutto deve essere fatto con un commandbutton "ELIMINA"
POSTERò UN FILE DI PROVA PER FARVI CAPIRE AL MEGLIO IL QUESITO

Grazie a tutti
cordiali saluti
Salvatore
di SAL (utente non iscritto) data: 16/03/2017 13:53:53
Buongiorno

va bene anche (forse è più semplice) eliminare la riga semplicemente posizionandomi sul nome da eliminare, senza dover selezionarlo dall'elenco a tendina!

grazie
ciao
Salvatore

di alfrimpa data: 16/03/2017 14:56:37
Ciao Salvatore

Prova con il codice che vedi sotto associato al CommandButton sul foglio1

Alfredo

Private Sub CommandButton1_Click()
Dim Rng As Range
        With Sheets("Foglio2").Range("A:A")
            Set Rng = .Find(What:=Worksheets("Foglio1").Range("A3").Value, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Rng.EntireRow.Delete
            End If
        End With
End Sub

di SAL (utente non iscritto) data: 16/03/2017 18:11:33
Ciao Alfredo
ti ringrazio innanzitutto per l'aiuto

ho copiato il tuo codice , per ora , nel file di prova che ho postato, ma funziona a metà . . . nel senso che mi cancella il nome selezionato nel foglio2
ma non nel foglio1

altra cosa importante . . .
nel file di prova ho sbagliato . . . nel mio file il commandbutton è nel foglio2 (il foglio dove ci sono i nomi copiati) e non nel foglio1 (dove ci sono i nomi che scrivo io nelle celle libere)

penso quindi che bisognerà modificare il codice . . . io francamente non ho capito nulla di quel codice, non sarei in grado di modificarlo

grazie ancora per il disturbo e per l'aiuto
ciao
Salvatore
di sal (utente non iscritto) data: 16/03/2017 18:45:35
Alfredo ti ho ripostato in allegato il file di prova corretto

nel foglio1 la cella A3 è copia della cellaA3 del Foglio2, dove faccio la selezione

il commandbutton è nel foglio2

grazie ciao
Salvatore

di ges (utente non iscritto) data: 17/03/2017 23:27:52
Ciao,
se ho ben capito vuoi cancellare la riga del Foglio1 e del Foglio2 che contengono il nome in A3 del Foglio1.

Se è così usa questo codice:

Sub cancella()
    For y = 4 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        If Sheets(1).Cells(y, 1) = Sheets(1).Cells(3, 1) Then
            Sheets(1).Cells(y, 1).EntireRow.Delete
            Sheets(2).Cells(y, 1).EntireRow.Delete
        End If
    Next
End Sub

Vuoi Approfondire?