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

• #43985 oke senior tag Fferi50 #43978

  Új Válasz 2020-05-15 14:39:15 #43985

  Ú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

  

  oke

  senior tag

  válasz Fferi50 #43978 üzenetére

  Szia,

  Köszönöm!

  1, van Personal, az nem gond,
  2, nem is új sor volt a jó szó, hanem az eredeti 6000 sorból törlődött más műveletek alapján jó sok sor és a maradék, illetve az eredeti 6000 sor közötti üres sorok megjelentek a szűrőben, mint üres sorok. Egy autószűrő fel, le megoldotta.
  3, így kellene berakni? Megakad ezen a soron:
  Dim ucell As Range
    Set ucell = Range("V" & Rows.Count).End(xlUp)
    With Range(Range("V2"), ucell).Validation
    'Range("V2").Select
    'With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=[Munkafüzet3.xlsx]Lista!$A$2:$A$17"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

  Ezen a soron megáll, pedig egy könyvtárban vannak és stimmel az elérés::
  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=[Munkafüzet3.xlsx]Lista!$A$2:$A$17"

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