extragere informatii in functie de conditii
extragere informatii in functie de conditii
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)
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.
Re: extragere informatii in functie de conditii
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
Pentru testare: deschideti fisierul atasat, permiteti rularea macro, alegeti itemul din lista si apasati butonul albastru sau rulati macro folosind alta metoda
IP
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
IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: extragere informatii in functie de conditii
Mulțumesc! Îl adaptez la tabelul real.