database stringhe

[Rocco Rocco]

salve a tutti

sto utilizzando la macro riportata qui sotto per eliminare le righe dove alla cella della colonna B ci sia un "valore" AAB

la mia domanda è:

se volessi avere piu valori diversi per condizionare l'eliminazione della riga

quindi non solo AAB ma ad esempio anche AAC...AAH...CBH....ecc.

sarebbe possibile creare un database di stringhe da utilizzare per l'eliminazione

(meglio se questo database non sia creato utilizzando delle celle ma scrivendolo dentro alla macro)

spero di essere stato chiaro e ringrazio fin d'ora chi mi potra aiutare

Rocco

Sub elimina_righe_stringa()
Dim i
Dim Stringa
Stringa = "AAB"
For i = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, "B") Like Stringa Then
Cells(i, "B").Select
Selection.EntireRow.Delete
End If
Next i
End Sub

[patelModeratore patel Karma: 51 pts]

crea un array  con le stringhe, poi per ogni cella che controlli vedi scandisci l'array per verificare se la cella è presente nell'array

[Rocco Rocco]

peccato che non lo so fare perchè non ho la piu minima idea di cosa sia un array

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Ecco l'occasione buona per "fartene un'idea".

Ciao,

Mario

[Rocco Rocco]

non so da dove partire!....qualche suggerimento?

[Rocco Rocco]

sto provando con questa macro ma a parte che è lunga, il problema è che dopo aver trovato la riga da cancellare la macro si ferma e non continua a cercare la successiva variabile nell'array

Sub elimina_righe_array()

For TTT = 1 To 102
Dim i
Dim Stringa
Dim nazioni As Variant
nazioni = Array("GAUC", "MES2", "MES1", "GIA2", "SKO2", "AZE1", "FIL1", "UCR1", "CSCO", "ING5", "CSVE", "GAL1", "SER1", "SVK1", "GIA1", "IRN1", "CIN1", "HKO1", "AUL2", "TU21", "IG23", "RU21", "ISR2", "THA1", "GE19", "CALG", "TUR2", "CFIN", "RUS1", "SVN1", "AUT2", "DAN2", "GER3", "GER4", "BE21", "FRA3", "IRL2", "POL2", "CIL1", "PAR1", "BR1P", "ECU1", "COL1", "SHEBF", "BR1C", "PRN1", "CEA1", "ELS1", "IND2", "RUA1", "UGA1", "EAU1", "CAM1", "CRUS", "IND1", "ALGF", "AMI", "NIG1", "CAV1", "ALB1", "CCYF", "CUNG", "EGI1", "GAMIF", "ARA2", "CITA", "CROM", "CISR", "MAR1", "CFRA", "CGRE", "COLA", "SAF1", "BR3P", "PER1", "CAUT", "CSV1", "BOL1", "GIB1", "VEN1", "FACU", "CPOR", "NIC1", "CLIB", "CBRA", "ARG3", "CMES", "COCH", "SKO1", "SPA", "CCIP", "GA19", "KUW1", "TUN1", "QAT1", "UZB1", "ARA1", "BAH1", "ALG1", "GIO1", "CTUR", "URU1")
Stringa = nazioni(0)
Stringa = nazioni(1)
Stringa = nazioni(2)
Stringa = nazioni(3)
Stringa = nazioni(4)
Stringa = nazioni(5)
Stringa = nazioni(6)
Stringa = nazioni(7)
Stringa = nazioni(8)
Stringa = nazioni(9)
Stringa = nazioni(10)
Stringa = nazioni(11)
Stringa = nazioni(12)
Stringa = nazioni(13)
Stringa = nazioni(14)
Stringa = nazioni(15)
Stringa = nazioni(16)
Stringa = nazioni(17)
Stringa = nazioni(18)
Stringa = nazioni(19)
Stringa = nazioni(20)
Stringa = nazioni(21)
Stringa = nazioni(22)
Stringa = nazioni(23)
Stringa = nazioni(24)
Stringa = nazioni(25)
Stringa = nazioni(26)
Stringa = nazioni(27)
Stringa = nazioni(28)
Stringa = nazioni(29)
Stringa = nazioni(30)
Stringa = nazioni(31)
Stringa = nazioni(32)
Stringa = nazioni(33)
Stringa = nazioni(34)
Stringa = nazioni(35)
Stringa = nazioni(36)
Stringa = nazioni(37)
Stringa = nazioni(38)
Stringa = nazioni(39)
Stringa = nazioni(40)
Stringa = nazioni(41)
Stringa = nazioni(42)
Stringa = nazioni(43)
Stringa = nazioni(44)
Stringa = nazioni(45)
Stringa = nazioni(46)
Stringa = nazioni(47)
Stringa = nazioni(48)
Stringa = nazioni(49)
Stringa = nazioni(50)
Stringa = nazioni(51)
Stringa = nazioni(52)
Stringa = nazioni(53)
Stringa = nazioni(54)
Stringa = nazioni(55)
Stringa = nazioni(56)
Stringa = nazioni(57)
Stringa = nazioni(58)
Stringa = nazioni(59)
Stringa = nazioni(60)
Stringa = nazioni(61)
Stringa = nazioni(62)
Stringa = nazioni(63)
Stringa = nazioni(64)
Stringa = nazioni(65)
Stringa = nazioni(66)
Stringa = nazioni(67)
Stringa = nazioni(68)
Stringa = nazioni(69)
Stringa = nazioni(70)
Stringa = nazioni(71)
Stringa = nazioni(72)
Stringa = nazioni(73)
Stringa = nazioni(74)
Stringa = nazioni(75)
Stringa = nazioni(76)
Stringa = nazioni(77)
Stringa = nazioni(78)
Stringa = nazioni(79)
Stringa = nazioni(80)
Stringa = nazioni(81)
Stringa = nazioni(82)
Stringa = nazioni(83)
Stringa = nazioni(84)
Stringa = nazioni(85)
Stringa = nazioni(86)
Stringa = nazioni(87)
Stringa = nazioni(88)
Stringa = nazioni(89)
Stringa = nazioni(90)
Stringa = nazioni(91)
Stringa = nazioni(92)
Stringa = nazioni(93)
Stringa = nazioni(94)
Stringa = nazioni(95)
Stringa = nazioni(96)
Stringa = nazioni(97)
Stringa = nazioni(98)
Stringa = nazioni(99)
Stringa = nazioni(100)
Stringa = nazioni(101)

For i = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, "D") Like Stringa Then
Cells(i, "D").Select
Selection.EntireRow.Delete
End If
Next i

Next TTT

End Sub

[albatros54Moderatore albatros54 Karma: 89 pts]

prova cosi, i dati nell'esempio si trovano nella col0nna A

Option Explicit


Sub elimina_righe_array()

    Dim nazioni As Variant
    Dim ultimariga As Long, rigatrovato As Long
    Dim rng As Range
    Dim cl As Variant, lc As Variant
    nazioni = Array("GAUC", "MES2", "MES1", "GIA2", "SKO2", "AZE1", "FIL1", "UCR1", "CSCO", "ING5", "CSVE", "GAL1", "SER1", "SVK1", "GIA1", "IRN1", "CIN1", "HKO1", "AUL2", "TU21", "IG23", "RU21", "ISR2", "THA1", "GE19", "CALG", "TUR2", "CFIN", "RUS1", "SVN1", "AUT2", "DAN2", "GER3", "GER4", "BE21", "FRA3", "IRL2", "POL2", "CIL1", "PAR1", "BR1P", "ECU1", "COL1", "SHEBF", "BR1C", "PRN1", "CEA1", "ELS1", "IND2", "RUA1", "UGA1", "EAU1", "CAM1", "CRUS", "IND1", "ALGF", "AMI", "NIG1", "CAV1", "ALB1", "CCYF", "CUNG", "EGI1", "GAMIF", "ARA2", "CITA", "CROM", "CISR", "MAR1", "CFRA", "CGRE", "COLA", "SAF1", "BR3P", "PER1", "CAUT", "CSV1", "BOL1", "GIB1", "VEN1", "FACU", "CPOR", "NIC1", "CLIB", "CBRA", "ARG3", "CMES", "COCH", "SKO1", "SPA", "CCIP", "GA19", "KUW1", "TUN1", "QAT1", "UZB1", "ARA1", "BAH1", "ALG1", "GIO1", "CTUR", "URU1")
    ultimariga = Range("a" & Rows.Count).End(xlUp).Row
    Set rng = Range("a1:A" & ultimariga)
    For Each cl In nazioni
        For Each lc In rng
            If cl = lc Then
                rigatrovato = lc.Row
                Cells(rigatrovato, "A").Select
                Selection.EntireRow.Delete
            End If
        Next
    Next
End Sub

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?
( Alan Turing)

[Rocco Rocco]

magnifico! funziona grande! grazie 1000

[Autore]

Articoli