- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Gurulunk, WAZE?!
- bitpork: MOD Júni 13 Augusztus 2- szombat jelen állás szerint.
- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
- gban: Ingyen kellene, de tegnapra
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- hdanesz: Hyundai Ioniq 28kWh - Első benyomások - második felvonás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- stefi68: AnySoft Keyboard (magyarul)
-
LOGOUT
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
Hirdetés
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Kazy Computers - Fehérvár - Megbízható?
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Nyíregyháza és környéke adok-veszek-beszélgetek
- OpenMediaVault
- Gyúrósok ide!
- sziku69: Fűzzük össze a szavakat :)
- Sega, Nintendo - retro konzolok
- Magisk
- Háztartási gépek
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- ÁRGARANCIA! Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Xiaomi Redmi Note 13 Pro+ 512GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RTX 4070Ti Super GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged