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

• #44030 oke senior tag Fferi50 #43987

  Új Válasz 2020-05-18 15:54:25 #44030

  Ú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 #43987 üzenetére

  Szia,

  Ezzel sajnos nem jutok előrébb, nem akartam bevonni plusz munkalapot, akkor a listát pakolom át a "Sablon" munkafüzetembe, amibe a többi adat is van.

  Átalakítottam így a makrórészletet, viszont érdekes dolgot produkál, szinte mindegyik oszlopba berakja a legördülő listát, nem csak a V oszlopba. mi a rossz benne?

  Dim ucell As Range
Set ucell = Range("A" & Rows.Count).End(xlUp) 'itt átírtam A-ra a V-t
With Range(Range("V2"), ucell).Validation
'Range("V2").Select
'With Selection.Validation 'az eredetiben benne volt, de ha bennhagyom,kiakad
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Lista!$A$2:$A$17"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

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