Hirdetés
- Send to qBittorrent (with SavePaths): Egy apró Firefox kiegészítő qBittorrenthez
- Ikea PAX gardrób és a pokol logisztikája – egy Ikea-horror igaz története
- -TongFang- Medion Erazer Beast 16 X1 - induló teszt így kora délután..."CB R23"
- Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- A Magyar Néphadsereg emlékére
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- Ketogén étrend
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- [K2]: AnyDesk átverés
-
LOGOUT
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
-
sonar
addikt
válasz
Amazonas
#3022
üzenetére
Igen tudom,hogy körkörös hivatkozás lenne. Ezért kérdeztem, hogy nincsen e rá vmilyen trükk. Makróval próbálkozom... csak vmilyen apróság mindig megszivat.
Vessző pontos vessző érdekes téma. Az én excelemben csak pontos vessző jó tagolásra, de a kolléga gépe meg csak a vesszőt fogadja el.
pedig elméletileg ua minden. -
Delila_1
veterán
válasz
Amazonas
#2989
üzenetére
Inputboxban kérdezem le a másolandó lap nevét, mert az havonta változni fog.
Sub masol()
lapnev = InputBox("Melyik a lezárt hónap?", "Adatátvitel az új hónap lapjára", Default)
Sheets(lapnev).Select
sor = 2: sor_uj = 2
Do While Cells(sor, 1) <> ""
If Cells(sor, 24) = "" Then
Range(Cells(sor, 1), Cells(sor, 23)).Select
Selection.Copy
ActiveSheet.Next.Select
Cells(sor_uj, 1).Select
ActiveSheet.Paste
sor_uj = sor_uj + 1
ActiveSheet.Previous.Select
End If
sor = sor + 1
Loop
End Sub -
Delila_1
veterán
válasz
Amazonas
#2982
üzenetére
Itt egy kis makró, ami a 0-val kezdődő sorokat kitörli. Ha megadod a két lapod nevét, és azt, hogy a januári lapon melyik oszlopban van az állapotot jelző adat, megírom az automatikus másolást.
Sub torles()
sor = 1
Do While Cells(sor, 1) <> ""
Cells(sor, 1).Select
If Cells(sor, 1) = 0 Then
Selection.EntireRow.Delete
Else
sor = sor + 1
End If
Loop
End Sub
Új hozzászólás Aktív témák
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Drasztikusan lassíthatja a játékokat egyes VGA-kon a Windows 11 új frissítése
- PROHARDVER! feedback: bugok, problémák, ötletek
- Szinte a semmiből robbanna be az 1,4 nm-es eljárásával a Rapidus
- Robotporszívók
- One otthoni szolgáltatások (TV, internet, telefon)
- Filmgyűjtés
- LEGO klub
- NFL és amerikai futball topik - Spoiler veszély!
- Windows 11
- További aktív témák...
- OnePlus Nord 2T 128GB, Kártyafüggetlen, 1 Év Garanciával
- Nagyakkus, mobilnetes - Dell Latitude 5330 i3-1215U 6mag! 16GB 1000GB 13.3" FHD 1 év gar
- Apple iPhone 16 256 GB Black Apple Garancia Beszámítás Házhozszállítás
- Bomba ár! Dell Latitude E5550 - i3-4GEN I 4GB I 500GB I 15,6" HD I HDMI I W10 I Cam I Gari!
- GYÖNYÖRŰ iPhone 13 256GB Midnight -1 ÉV GARANCIA -Kártyafüggetlen, MS3650, 100% Akkumulátor
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi
pedig elméletileg ua minden.




Fferi50
