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

• #36038 Delila_1 veterán lenkei83 #36029

  Új Válasz 2017-08-25 10:18:18 #36038

  Ú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

  

  Delila_1

  veterán

  válasz lenkei83 #36029 üzenetére

  Az L-M oszlopba írja ki az egyes megnevezésekhez tartozó összegeket.

  Sub Kigyujtes()
Dim usor As Long

Columns(1).Copy Range("L1")
usor = Range("L" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("L1:L" & usor).RemoveDuplicates Columns:=1
usor = Range("L" & Rows.Count).End(xlUp).Row

Range("M1:M" & usor) = "=sumif(A:A,L1,B:B)"
End Sub

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