-
GAMEPOD.hu
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
Topikgazda
A Set WS1 = Sheets("Munka1") sorban a Munka1 helyett írd be annak a lapodnak a nevét, ahol a darabszámok szerepelnek, a Munka2 helyére azt, ahova a többszörözést akarod beíratni.
Sub Tobbszoroz()
Dim sor As Long, usor As Long, ujsor As Long, eddig As Integer, a As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Sheets("Munka1")
Set WS2 = Sheets("Munka2")
Application.ScreenUpdating = False
WS2.Range("A:B").ClearContents 'Előző adatok törlése a Munka2 lapon
WS1.Activate
Range("A1:B1").Copy WS2.Range("A1") 'Címsor a Munka2 lapra
usor = Range("A" & Rows.Count).End(xlUp).Row
ujsor = 2
For sor = 2 To usor
eddig = Cells(sor, "C")
For a = 1 To eddig
Range("A" & sor & ":B" & sor).Copy WS2.Range("A" & ujsor)
ujsor = ujsor + 1
Next
Next
Application.ScreenUpdating = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
Nincs előttem excel, fejből meg nem írnék hülyeséget. Keress rá a súgóban, elég jól használható. Ott vannak példák is a függvény hazsnálatrára. A lányege, hogy összefűzött szövegként megadott paramétert a további függvények hivatkozásként tudják kezelni.
Mivel a hivatkozásban egy számot kell megadni (mert ez a neve az adott munkalapnak), de az indirekt szöveget vár paraméternek, így használnod kell a SZÖVEG() függvényt is, aminek a második paramétere "0" legyen.
üdv, föccer
Építésztechnikus. Építőmérnök.
Új hozzászólás Aktív témák
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MIUI / HyperOS topik
- Skoda, VW, Audi, Seat topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Kerékpárosok, bringások ide!
- WoW avagy World of Warcraft -=MMORPG=-
- Politika
- Path of Exile (ARPG)
- Mikrotik routerek
- További aktív témák...
- Steames kulcsok jó áron eladóak!
- Eladó Steam kulcsok kedvező áron!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs