Hirdetés
- Bemutatkozott a Poco X7 és X7 Pro
- Xiaomi Watch 2 Pro - oké, Google, itt vagyunk mi is
- Szerkesztett és makrofotók mobillal
- iPhone topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Huawei Watch Fit 3 - zöldalma
- Milyen okostelefont vegyek?
- Samsung Galaxy A54 - türelemjáték
- OneSport OT07 - szevasztok, hollandok!
- Yettel topik
-
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
- Mibe tegyem a megtakarításaimat?
- Autós topik
- Blu-ray lejátszók
- Gaming notebook topik
- Magga: PLEX: multimédia az egész lakásban
- Mindennél nagyobb: tesztpadon a Ryzen 9 9950X3D CPU
- BestBuy topik
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- The First Berserker: Khazan
- Bemutatkozott a Poco X7 és X7 Pro
- További aktív témák...
- Csere-Beszámítás! RTX Számítógép játékra! I5 9400/ RTX 2060 / 32GB DDR4 / 500GB SSD
- LG 55B4 - 55" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Részletfizetés .Lenovo Legion Pro 5 16IRX9 RTX 4070 , Lenovo Legion Pro 7 16IRX9H RTX4080
- Akciós Windows 10 pro + Office 2019 professional plus csomag AZONNALI SZÁLLÍTÁS
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest