2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #41351 bteebi veterán
    Új Válasz #41351
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    bteebi

    veterán

    Sziasztok!

    Van egy event makróm az adott munkalapban, ami a C oszlopban (3. oszlop) kiválasztott érték ("OK", "Rossz", vagy "N/A") alapján hoz létre a D oszlopban egy listát. De csak akkor, ha a kiválasztott érték a "Rossz". Emellett még rajzol egy keretet.

    Az érdekesség az, hogy a makró önállóan lefuttatva (a célcellára ráállva) teljesen jól működik, de ha event makróként futtatnám (a Dim Target/Set Target sorok nélkül, de akár azokkal is) nem csinál semmit. Mi lehet a baj? Már az is felmerült bennem, hogy a dropdown miatt van, hogy esetleg a cellában az értékváltozást nem tekinti változásnak, de másik makrókban ugyanebben a munkafüzetben meg hibamentesen megy... Valahogy pedig nem triggerelődik az event...

    Sub test()
    'Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Target As Range
    Set Target = ActiveCell

    Dim rng As Range

    If Target.Column = 3 Then

    If Target.Value = "OK" Or Target.Value = "N/A" Then
    Sheets("Stat").Cells(Target.Row, "D").ClearContents
    Sheets("Stat").Cells(Target.Row, "D").Validation.Delete
    End If

    If Target.Value = "Rossz" Then

    With Sheets("Stat").Cells(Target.Row, "D").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Formula1:="Hiba 1,Hiba 2,Hiba 3,Hiba 4"
    End With

    End If

    Set rng = Sheets("Stat").Range("D" & Target.Row & ":E" & Target.Row)

    With rng.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    End With
    With rng.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    End With
    With rng.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    End With
    With rng.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    End With
    With rng.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
    End With

    End If

    End Sub

    Van valami ötletetek, hogy mi lehet a gond? Nagyon köszönöm! :R

Új hozzászólás Aktív témák

Hirdetés