- Ismét a Gigabyte alaplapjaival van az Erő
- Generációs lemaradásban a Huawei chipek, de a cég kitalált valamit
- A Razer új irányba nyitott a mechanikus billentyűzetek piacán
- Streaming vs kábeltévé: feldarabolják a Warner Bros Discoveryt
- Személyesen Zuckerberg toborozza a szuperintelligenciát építő AI-csapatot
- Milyen egeret válasszak?
- Projektor topic
- Milyen belső merevlemezt vegyek?
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- HDD probléma (nem adatmentés)
- A Razer új irányba nyitott a mechanikus billentyűzetek piacán
- Autós kamerák
- HiFi műszaki szemmel - sztereó hangrendszerek
- iPad topik
- AMD Navi Radeon™ RX 9xxx sorozat
-
PROHARDVER!
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
-
Oly
őstag
válasz
Delila_1 #9810 üzenetére
Szia macroTündér!
Ezt a kódot próbáltam átültetni az én feladatomba, de nem sikerült.
A feladatom az lenne, hogy a "make" sheeten lévő a11:i111 tartományból azokat a sorokat szúrja be a "table" sheet a1:i1 sora elé.
Tehát tolja lentebb annyi sorral a táblázatot, amennyi adatot tartlamaz a "make" A11:A111 tartomány.Úgy próbáltam, hogy count fv-nyel megszámoltattam az A11:A111 teli celláit.
Ezt a B1-ben tároltam.Egy ilyen kódot írtam, de most valamiért szenved, pedig múkodott már félig:
Dim dbteli As Long
Dim dbteli2 As Long
dbteli = Cells(1, 2)
dbteli2 = Cells(1, 2) + 10
'MsgBox (dbteli2)
'MsgBox (dbteli)
Rows("11:" & dbteli2).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("table").Select
Rows("1:" & dbteli).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("make").Select
Range("A11").Select
Application.CutCopyMode = FalseSelect methodof range class failed üzit dobja
A dbteli-ből azért van kettő, mert egyik helyen A1-től a másiknál A11-től indul.
Tudnál segíteni, hogy mit rontok el?
Köszönöm
Új hozzászólás Aktív témák
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS ROG CROSSHAIR VI EXTREME alaplap garanciával hibátlan működéssel
- Csere-Beszámítás! Xbox One X 1TB Játékkonzol Olvass! Model 1787
- REFURBISHED - DELL Thunderbolt Dock WD19TBS docking station (210-AZBV)
- iKing.Hu - Apple iPhone 13 Pro Max - Graphite - Használt, újszerű
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged