Hirdetés
- Picit gazdaságosabb és halkabb lett a PlayStation 5 Pro legfrissebb verziója
- Dollármilliárdokért csábított el Zuckerberg egy kínai Manust
- Új versenyző áll rajtvonalhoz a tápok világában
- Tiltott témává tenné Kína az öngyilkosságot az AI számára
- Hálózati sebességre gyúrt a Minisforum új mini-munkaállomása
- TCL LCD és LED TV-k
- AMD Navi Radeon™ RX 9xxx sorozat
- VR topik
- Fujifilm X
- Milyen notebookot vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen széket vegyek?
- Csekély 4000 dollárért tervezetten "hibás" az ASUS limitált VGA-ja
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Kábel nélkül a Sapphire VGA-val
Ú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
- Örömkönnyek és üres kezek a TriFold startjánál
- Spórolós topik
- TCL LCD és LED TV-k
- Ford topik
- Bittorrent topik
- Kerékpárosok, bringások ide!
- Kertészet, mezőgazdaság topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Apple iPhone 15 Pro Max - Attack on Titan
- AMD Navi Radeon™ RX 9xxx sorozat
- További aktív témák...
- GIGABYTE GeForce RTX 3080 10GB OC GDDR6X 320bit WaterForce
- Xiaomi 15T 256GB, Kártyafüggetlen, 1 Év Garanciával
- Komplett gamer konfig szinte minden új..
- Eladó új, hibátlan állapotú, EGYSZER SEM HASZNÁLT ASUSINSEARCH OF INCREDIBLE EXTERNAL SLIMDVD-RW SDR
- Toshiba 408S Multifunkcionális nyomtató ( újszerű )
Á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


