-
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
- Apple Watch Sport - ez is csak egy okosóra
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Okos Otthon / Smart Home
- Vallás
- Elektromos autók - motorok
- Witcher topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- TCL LCD és LED TV-k
- exHWSW - Értünk mindenhez IS
- Elmentünk fotózni a Xiaomi 17 Ultrával
- További aktív témák...
- Microsoft és egyéb dobozos retro szoftverek
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Vásárlunk iPhone 12/12 Mini/12 Pro/12 Pro Max
- Apple iPad Air 5.Gen 64GB 100% (1év Garancia)
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- Apple iPhone 6/6 Plus szerviz alkatrészek, készletről akár másnapra!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50