- One mobilszolgáltatások
- 65 órányi zenét ígér az Audio-Technica új TWS fülese
- Yettel topik
- Samsung Galaxy Watch7 - kötelező kör
- iPhone topik
- Csíkszélességben verné az Exynos 2600 a Snapdragon 8 Elite 2-t
- Samsung Galaxy A53 5G - kevesebbet többért
- Sony Xperia 1 V - kizárólag igényeseknek
- Milyen okostelefont vegyek?
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
-
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
-
lapa
veterán
szvsz ilyen formában kéne:
workbooks(''C:\my excel files\masik.xls'').sheets(''fülneve'').cells(2,2) = ...
mindkét táblában annak a sheetnek a kódja legyen, amelyiken az érintett cella van, tehát ''fülneve''.
mindenesetre elég meleg szerintem, mozgatni nem lehet, meg gondolom elszáll ha mindkét tábla más júzernél nyitva van. nemtom lehet-e ilyen.
most belegondolva lehet, hogy ilyen is kell nyitáshoz-csukáshoz:
workbooks(''C:\my excel files\masik.xls'').open
workbooks(''C:\my excel files\masik.xls'').close savechanges:=true
vagy vmi ilyesmi, lehet, hogy rossz a szintakszis
két aposztróf = macskaköröm, a szokásos.
[Szerkesztve] -
lapa
veterán
itt egy mintakód, elég kezdetleges. ez a B2 és C2 cellákat fogja kapcsolni.
alt + F11 --> azon belül duplakatt munka1-re vagy sheet1-re. oda másold be.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = ''$B$3'' Then
Cells(2, 3).Value = Cells(2, 2).Value
End If
If Target.Address = ''$C$3'' Then
Cells(2, 2).Value = Cells(2, 3).Value
End If
End Sub
persze még ki kell egészíteni, hogy mivan ha jobbra vagy más irányba lép el a celláról a júzer. nemtom így használható-e. -
Pá
addikt
Vagy az is jó ha valaki megmondja hogy hívják magarul azt a függvényt, ami olyasmit csinál, hogy van mondjuk 2 oszlopnyi adatom, az elsőben betűvel írt adatok, pl végzettség, a másodikban számok, pl fizetés.
És nekem külön csoportokba kéne rendezni az x fajta végzettséghez tartozó fizetéseket.
Új hozzászólás Aktív témák
Hirdetés
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Gyermek PC játékok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- AKCIÓ! Acer Predator Triton Neo 16 15 notebook - Ultra 9 185H 32GB RAM 2TB SSD RTX 4070 WIN11
- Bomba ár! HP Elitebook 850 G8 - i5-11GEN I 16GB I 256GB SSD I 15,6" FULLHD I Cam I W11 I Gari!
- Xiaomi Redmi A3 64GB Kártyafüggetlen, 1Év Garanciával
- BESZÁMÍTÁS! Intel Core i9 9900KF 8 mag 16 szál processzor garanciával hibátlan működéssel
- Külföldi csomagszállítás Packeta csomagpontokon keresztül!
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: Promenade Publishing House Kft.
Város: Budapest