Hirdetés
- Google Pixel topik
- OneSport OT07 - szevasztok, hollandok!
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Stabil pályára állt az Android 16
- Apple iPhone 16 Pro - rutinvizsga
- Redmi Note 11 és 11S - biztos alapra jobb építeni
- Szívós, szép és kitartó az új OnePlus óra
- Kapcsolja ki, kapcsolja be!
- Poco X6 Pro - ötös alá
- Xiaomi 14T Pro - teljes a család?
-
Mobilarena
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
-
sztanozs
veterán
válasz
butch3r #30300 üzenetére
Public Sub ttt()
Dim r1 As Range
Set r1 = Application.Intersect(Workbooks("Book1").Sheets("Sheet1").Range("B25:D65535"), Workbooks("Book1").Sheets("Sheet1").UsedRange)
Dim v1
v1 = r1.Value2
Dim r2 As Range
Set r2 = Application.Intersect(Workbooks("Book2").Sheets("Sheet1").Range("B25:D65535"), Workbooks("Book2").Sheets("Sheet1").UsedRange)
Dim v2
v2 = r2.Value2
Dim oldbound, newbound
oldbound = UBound(v1, 1)
newbound = oldbound + UBound(v2, 1)
Dim v_cel()
ReDim Preserve v_cel(1 To newbound, 1 To 3)
Dim ix, iy
For ix = 1 To UBound(v1, 1)
For iy = 1 To 3
v_cel(ix, iy) = v1(ix, iy)
Next
Next
For ix = 1 To UBound(v2, 1)
For iy = 1 To 3
v_cel(oldbound + ix, iy) = v2(ix, iy)
Next
Next
Dim r_cel As Range
Dim kezdosor
kezdosor = 10
Set r_cel = Workbooks("Book1").Sheets("Sheet2").Range("B" & kezdosor & ":D" & kezdosor + UBound(v1, 1) - 1)
r_cel.Value2 = v1
End Sub
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- EA Sports WRC '23
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Napelem
- Google Pixel topik
- AMD Navi Radeon™ RX 9xxx sorozat
- OneSport OT07 - szevasztok, hollandok!
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- LED világítás a lakásban
- Szemüveges topik
- További aktív témák...
- Samsung M5 Smart - 27" VA - Beépített WiFi & Bluetooth - Apple Airplay - HDR10 - sRGB 99%
- LG 45GR95QE - 45" Ívelt OLED / 2K WQHD / 240Hz 0.03ms / NVIDIA G-Sync / FreeSync Premium / HDMI 2.1
- Honor 90 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max/
- Samsung Galaxy S20 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest