Hirdetés
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Gurulunk, WAZE?!
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- MasterDeeJay: Egy nem átlagos Asus videókártya (GTX950M 2GB GDDR3)
- gban: Ingyen kellene, de tegnapra
- Magga: PLEX: multimédia az egész lakásban
-
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
-
tzetko
csendes tag
Szia delila
Segítséget szeretnék tőled kérni.
A fügvényvarázslóban hogyan kell leíró szöveget készíteni -
tzetko
csendes tag
Szia Delila!
A segítségedet szeretném kérni.
Az Excelben makroval ki akarom kapcsolni az automatikus helyreálítást. Auto openbe be akarom rakni, ha megnyitom az Excelt akkor a korábbi (bal oldalt lévő) helyre állított fájlokat automatikusa törölje.Köszönöm a segítséged!
-
tzetko
csendes tag
Szia Delila!
lehet hogy nem olvastad a tegnap esti kérésemet.
nem szeretnék tolakodó lenni, pusztán kérdezem tudsz-e még segíteni nekem?
fentebb láthatod a kérésemet.Köszi.
-
tzetko
csendes tag
Szia Delila!
A múltkor kaptam tőled segítséget "mentés makróval"
Munka1 lapon 3 oszlop kitöltése után automatikusan másol a Munka2 nevű lapra és a mentéseket soronként hozzáadja a Munka2 nevű lapon.
A makró jól működik, de volna egy kérésem amit változtatni kellene rajta.
A copy-zás helyett csak értékbeillesztést kellene végrehajtania a Munka1 -ről a Munka2 lapra.
makrófelvétellel nem boldogulok.
Amit múltkor írtál:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Dim usor As Long
usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Munka2").Cells(usor, 1)
End If
End Subeddig amit próbálgattam, de nem működik:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Dim usor As Long
Selection.Copy
Sheets("Munka2").Select
usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
Rows(Target.Row).Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseEnd If
End SubSegítségedet előre is köszönöm.
-
tzetko
csendes tag
Sziasztok!
Makróval szeretném megoldani, hogy van két excel munkalapom. Az egyikbe (Munka1) lapba írok pár sort, amelyet a másikba (Munka2)-be szeretnék menteni, úgy hogy mindig hozzáadja a (Munka2) lapon lévő mentettekhez.
Makró rögzítéssel nem tudom megoldani
leírná valaki nekem makróban a megoldást.Köszönöm
Új hozzászólás Aktív témák
Hirdetés
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- The Division 2 (PC, XO, PS4)
- Heroes of Might & Magic: Olden Era
- PlayStation 5
- Gyúrósok ide!
- Parfüm topik
- 5.1, 7.1 és gamer fejhallgatók
- Kerékpárosok, bringások ide!
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Eredeti játékok OFF topik
- További aktív témák...
- Dobozos! Xbox One X 1 TB + kontroller 6 hó garancia, számlával!
- iPhone 15 Pro Max 256GB 100% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- Apple iPhone 13 / 256GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100%
- SMAILIO HD 5" GPS autós navigáció
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50