Új hozzászólás Aktív témák
-
b@ndi
tag
Talan vhogy igy is mehet:
Cell(x,4) = ''=Cell('' & a & '', 1) + Cell('' & b & '', 1)''
Eleg barbar modszer, de talan mukodik.
Ugyanakkor vki megirna nekem, pliz,
hogy, hogyan lehet range-et valtozoval megnevezni? En igy probaltam, de nem tetszett neki (1004-altalanos hiba).
a = Inputbox(''1 es 10 kozott egy szam'')
Range(''a:a'').Select
[Szerkesztve] -
b@ndi
tag
Koszi a gyors valaszt, de sajnos ez most nem muxik igy

Amit egyebkent el akartam erni, hogy egy cella erteket egy masik excel file-bol athelyezze. Mindezt relative, mert kb 1-2ezer cellanyi kell, ami loop-olva viszonylag egyszeru lenne.
Meg 1x thx, de mara sajnos mar mennem kell. Udv -
b@ndi
tag
Gondoltam nem nyitok uj temat, mert a cim itt is magaert beszel.
Lenne egy kicsit luzer
kerdesem VB6-ban:
A kovetkezo egyszeru dolog miert nem mukodik? Illetve mit kellene valtoztatni?
Azt hiszem vmi object problemaja van, de ???
Dim x As Variant
Sub Macro()
x = 1
Range(R1Cx).Select
End Sub
Új hozzászólás Aktív témák
- EIZO FlexScan EV2495 Made in Japan! 1920x1200 IPS USB-c állítható magasság, PIVOT 2024-04 gyártás!
- 10 DB Lenovo ThinkPad Laptop X13 G2 G3, T14 G3 G5, T14s G4 G6, P15 G1 G2
- RAM memória Crucial Pro OC Gaming 16GB DDR5 6400MHz CL32 Black - bontatlan, új
- Dell Latitude 7420, 14" FHD IPS kijelző, i7-1185G7 CPU, 16GB DDR4, 256GB SSD, W11, Számla, 1 év ga
- Corsair 64GB KIT DDR4 3200 MT/s CL16 Vengeance LPX - bonatlan, új
- HIBÁTLAN iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3022
- GYÖNYÖRŰ iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3293
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Google Pixel 10 Pro 5G Porcelain AI-fotó varázs, Super Actua 120 Hz 128 GB
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3896, 95% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest
hogy, hogyan lehet range-et valtozoval megnevezni? En igy probaltam, de nem tetszett neki (1004-altalanos hiba).
Workbooks(''c:\ VBA\proba.xls'').Sheets(''blabla'').Cells( 1,1).Value

