-
Fototrend
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
-
Delila_1
veterán
Írtam egy makrót, de több dolog tisztázatlan. Úgy vettem, hogy mindkét füzetben az első lapon vannak az adatok. Nem írtam bele hibakezelést arra az esetre, ha a főtábla.xls-ben nem szerepel a segédtábla.xls valamelyik adata.
Továbbá nem tudom, a főtáblában melyik "a főtábla adott mezője", ahova át kell másolni a segédtábla B oszlopában található értéket. A makró a megtalált adat sorának a B oszlopába írja a segédtábla B mezőjét.
Ha ezeket a dolgokat tisztáztuk, megmondom, mi(ke)t kell átírni a makróban, és egyáltalán hogy kell alkalmazni. Ha nem leszek itt, biztosan kisegít valaki.
Sub Javit()
Dim talal As Variant, usor As Integer, sor As Integer
Dim nev, szam
Windows("segédtábla.xls").Activate
Sheets(1).Select
usor = ActiveSheet.UsedRange.Rows.Count
For sor = 2 To usor
nev = Cells(sor, 1): szam = Cells(sor, 2)
Windows("főtábla.xls").Activate
Sheets(1).Select
talal = Columns("A:A").Find(nev, LookIn:=xlValues).Row
Workbooks("főtábla.xls").Sheets(1).Cells(talal, 2) = szam
Windows("segédtábla.xls").Activate
Next
End Sub -
m.zmrzlina
senior tag
Két kérdés.
1. A főtábla és a segédtábla egy munkafüzet két különböző munkalapja, vagy két külön fájl? Gyanítom a második.
2. találatkor a főtábla adott mezőjét a Ez azt jelenti, hogy azt a cellát kell átírni a segédtábla adott sor, B oszlop elemére amiben a találat volt? Tehát, hogy még érthetőbb legyen (vagy még zavarosabb) Ha a főtábla A5-ben megtalálom a melléktábla A5 értékét akkor a főtábla A5 felveszi a melléktábla B5 értékét?
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Nintendo Switch 2
- E-book olvasók
- Kuponkunyeráló
- A fociról könnyedén, egy baráti társaságban
- Háztartási gépek
- Mibe tegyem a megtakarításaimat?
- Telekom TV SmartBox: szolgáltatói set-top box alacsony korlátokkal
- Nikon Z MILC fényképezőgépcsalád
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- PC Game Pass előfizetés
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Apple iPhone 14 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! ASUS TUF B760M i5 12400F 32GB DDR4 1TB SSD RX 6800 16GB ZALMAN Z1 Plus Cooler Master750W
- GYÖNYÖRŰ iPhone SE 2020 128GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3584
- Apple iPhone 15 ProMax 256GB Kártyafüggetlen 1év Garanciával
- Gamer PC-Számítógép! Csere-Beszámítás! R7 2700X / 16GB DDR4 / RTX 3060 / 256SSD + 1TB HDD
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Fferi50
