extragere informatii in functie de conditii

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
dip
Mesaje: 192
Membru din: Sâm Feb 06, 2010 11:09 pm
Localitate: Brasov

extragere informatii in functie de conditii

Mesaj de dip » Lun Oct 25, 2021 3:32 pm

Buna ziua!
Exista vreo posibilitate (de preferat cu formule, dar si VBA) de a extrage (in celulele galbene, una sub alta) inregistrarile marcate cu X, in functie de numele ales in celula galbena?
Rezultatele ar trebui sa fie ca cele din celulele portocalii.
(metoda trebuie sa functioneze si in excel 2003, 2007)
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

IPP
Moderator
Moderator
Mesaje: 4110
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: extragere informatii in functie de conditii

Mesaj de IPP » Lun Oct 25, 2021 7:03 pm

Buna ziua

Atasat gasiti un fisier cu o propunere folosind macro.
Atentie, intregul cod e facut strict pe structura informatiei din fisierul dvs. exemplu. Orice schimbare care afecteaza aceasta structura si locul unde se gaseste informatia de interes poate sa duca la pierdere de informatie sau nefunctionalitate.

Am folosit urmatorul cod

Cod: Selectaţi tot

Sub ExtrageInfo()

'IPP - 25.10.2021

Dim cCrt As Range
Dim rngSursa As Range
Dim i As Integer

Sheets("Sheet1").Select

Set cCrt = Range("H2")
Set rngSursa = Range("C3:F7")

If cCrt = "" Then
 MsgBox "Trebuie sa alegeti din lista", vbInformation, "Lipsa info"
 cCrt.Select
 Exit Sub
End If

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Range("H3:H7").ClearContents
i = 3

For Each c In rngSursa
 If UCase(c) = "X" And Cells(2, c.Column).Value = cCrt.Value Then
  Cells(i, 8).Value = Cells(c.Row, 2).Value
  i = i + 1
 End If
Next c

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub
Pentru testare: deschideti fisierul atasat, permiteti rularea macro, alegeti itemul din lista si apasati butonul albastru sau rulati macro folosind alta metoda

IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

dip
Mesaje: 192
Membru din: Sâm Feb 06, 2010 11:09 pm
Localitate: Brasov

Re: extragere informatii in functie de conditii

Mesaj de dip » Lun Oct 25, 2021 7:26 pm

Mulțumesc! Îl adaptez la tabelul real.

Scrie răspuns

Înapoi la “Intrebari despre Excel 2003”