-
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
-
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
- Telekom mobilszolgáltatások
- PlayStation 5
- Ez lenne a népkártya? Teszten a GeForce RTX 5060 Ti 16 GB
- Autós topik
- A fociról könnyedén, egy baráti társaságban
- Android szakmai topik
- Melyik tápegységet vegyem?
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- ASUS routerek
- Milyen routert?
- További aktív témák...
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Android / Server / Mail / stb.
- Starcraft 2 Collector's Edition
- Grand Theft Auto GTA Vice City PC
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Bomba ár! Fujitsu LifeBook U757 - i3-7GEN I 16GB I 256SSD I 15,6" FHD I HDMI I Cam I W11 I Garancia!
- Billentyűzet magyarosítás magyarítás lézerrel is! 10-15ezer közötti áron! Óriási betűkészeletünk van
- SEAGATE ST6000NM0034 6TB 7.2k SAS HDD, nettó 15747Ft + ÁFA, 1 év garancia
- LG K61 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest