- NVIDIA: a következő nagy dolog az AI-generálta videó
- JavaScript topic
- Windows 11
- Linux kezdőknek
- Az EU szerint a ChatGPT még mindig nem felel meg a szabványoknak
- Mesterséges intelligencia topik
- Milyen program, ami...?
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Windows 10
- Telekom otthoni szolgáltatások (TV, internet, telefon)
-
IT café
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
-
Pakliman
tag
válasz lenkei83 #36587 üzenetére
Akkor viszont:
Dim ws As Worksheet
Dim rCella As Range
Set ws = ActiveSheet
With ws
For Each rCella In .Range("I2:I" & .Range("A1").SpecialCells(xlCellTypeLastCell).Row)
rCella = "=sumifs('" & .Cells(rCella.Row, "F") & "'!$C:$C," & "'" & .Cells(rCella.Row, "F") & "'!$B:$B,$D2," & "'" & .Cells(rCella.Row, "F") & "'!$P:$P,$B2)"
Next rCella
End WithAzt ugye tudod, hogy a SpecialCells tud ám rafinált hibákat okozni?
Csak látszat, hogy az utolsó "használt" cella lesz az alapja a visszaadott koordinátának.
Ha az utolsó mentés (és/vagy újranyitás) előtt mondjuk a "XFD1048576" cellába (O2010-nél az utolsó cella) valaki írt valamit aztán TÖRÖLTE, akkor a SpecialCells(xlCellTypeLastCell) az a cella lesz!!Én ezeket használom az utolsó sor/oszlop meghatározására (a "hol" lehet egy munkalap, vagy akár egy terület is):
Public Function UtolsóSora(hol, Optional lColumn As Long = 1) As Long
Dim rng
Set rng = hol.Cells(hol.Cells.Rows.Count, lColumn)
If Not IsEmpty(rng) Then
UtolsóSora = rng.Row
Else
UtolsóSora = rng.End(xlUp).Row
End If
Set rng = Nothing
End Function
Public Function UtolsóOszlopa(hol, Optional lRow As Long = 1) As Long
Dim rng
Set rng = hol.Cells(lRow, hol.Cells.Columns.Count)
If Not IsEmpty(rng) Then
UtolsóOszlopa = rng.Row
Else
UtolsóOszlopa = rng.End(xlToLeft).Column
End If
Set rng = Nothing
End Function
Új hozzászólás Aktív témák
- NVIDIA: a következő nagy dolog az AI-generálta videó
- Vodafone mobilszolgáltatások
- Parci: Milyen mosógépet vegyek?
- Arena Breakout: Infinite
- Redmi Note 9 Pro [joyeuse]
- Három új színben lesz választható a Nothing Phone (2a)
- Revolut
- Sony Xperia 5 V - kell-e nekünk zoom?
- Amlogic S905, S912 processzoros készülékek
- FOTÓS beárazás
- További aktív témák...
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen