[excel] macro cerca nome e cancella riga/colonna

[Teq144]

Ho una matrice di celle 10x10 con cognomi
Devo fare una macro che cerchi in quale riga e in quale colonna si trovi il nome inserito attraverso un inputbox e, una volta trovato, cancelli tutta quella riga e la relativa colonna.
Il mio codice inziale è così:

Codice: Seleziona tutto

Sub cercanome ()
dim r,c as integer
dim nome as string
nome = Inputbox("Inserisci nome")
for c=1 to10
for r=1 to10
if cells(r,c) = nome then
???

Come devo continuare seguendo questa strada?[/code]

[Alexsandra]

Sono di corsa di "butto" lì una macro

Codice: Seleziona tutto

Sub Elimina()
For Each cella In Range("A1:a10")
If cella.Value = "aaa" Then
cella.EntireRow.Delete
End If
Next cella

For Each cella1 In Range("A1:c1")
If cella1.Value = "aaa" Then
cella1.EntireColumn.Delete
End If
Next cella1
End Sub

prova a sostituire "aaa" con un input, così comè il codice ti cancella sia riga che colonna.
Caso mai stasera quando torno a casa te la metto giù meglio

[Anthony47]

Ciao Teq
Per capire:
la matrice e’ larga 10 colonne e alta 10 righe, giusto?
Quindi in ogni riga ci sono 10 cognomi, e in ogni colonna ce ne sono altrettanti (in totale 19 cognomi diversi).
1) Se, trovato un cognome, chiedi di cancellare “tutta quella riga e la relativa colonna” significa che si cancelleranno 19 cognomi; e’ quello che intendi realizzare, o vorresti cancellare solo il cognome che hai cercato?
2) Inoltre, per “cancellare” tu intendi “azzerare il valore” (cosi’ che la cella rimane vuota, a gruviera) o “rimuovere” la cella o riga o colonna (a seconda della risposta in 1); in questa seconda ipotesi ci sono altre domande, ma per evitare il nesting di troppi if per ora mi fermo qui.

Una domanda generica:
l’ organizzazione a matrice 10*10 e’ obbligatoria o puo’ essere invece una lista verticale?

Ciao, a dopo.

[Teq144]

Allora:
Si, ci sono 19 cognomi diversi
1) Intendo cancellare i valore nella riga e relativa colonna, non voglio cancellare le colonne
2) Ti faccio un esempio, se il cognome si trova in A2, significa che tutti i valori della colonna A devono essere cancellati e tutt i cognomi che si trovarno nella righa 2 devo essere cancellati... quindi la colonna A diviene tutta vuota, e le celle B2 - C2 - D2 - E2 - F2 diventano vuote..
Capito cosa intendo?

Però mi serve nel modo in cui l'ho incominciata io... perkè con questa marco devo dimostrare al mio prof di aver capito la programmazione in visual basic, e per fare questo devo usare i costrutti, quindi la macro di Alexsandra non può andare bene xke ci sono funzioni che nn abbiamo neanche studiato.

[Anthony47]

Questa funziona, ma non garantisco che avrai un buon voto. Guarda i commenti, ci sono possibili variazioni da fare in funzione di quello che avete studiato; non so quanto e’ scandaloso quell’ ipotetico Exit Sub all’ interno di un ciclo If (servirebbe a interrompere la ricerca dopo il primo ritrovamento), comunque o lo scommenti (per renderlo esecutivo) o cancelli la riga.

Codice: Seleziona tutto

Sub cercanome()
Dim r, c, wr, wc As Integer
Dim nome As String
nome = InputBox("Inserisci nome")
For c = 1 To 10
For r = 1 To 10
If Cells(r, c) = nome Then
 For wr = 1 To 10    'azzera colonna
  Cells(wr, c).ClearContents           '<-oppure usa cells(wr,c) = ""
  Next wr
 For wc = 1 To 10    'azzera riga
  Cells(r, wc).ClearContents          '<-oppure usa Cells(r, wc) = ""
  Next wc
'Exit Sub                              '<-scommentare per uscire dopo 1° ritrovamento
End If

Next r                                 'scan per 10 righe
Next c                                 '... su 10 colonne

End Sub

Ciao,

[Alexsandra]

... perkè con questa marco devo dimostrare al mio prof di aver capito la programmazione in visual basic....

Bravo a fine scuola !!!. cerca in questa sezione che trovi diverso materiale ed esempi di codice ...... speriamo in un bel voto
studiare un pò di più no Auguri