Hirdetés
- Magisk
- Okosóra és okoskiegészítő topik
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Amazfit Bip 6 - jót olcsón
- Minden a BlackBerry telefonokról és rendszerről
- Visszatérnek a Samsung tervezte CPU-magok és GPU az Exynos 2800-ban?
- Szívós, szép és kitartó az új OnePlus óra
- One mobilszolgáltatások
- Félmillió felett a kiszállított Xiaomi autók száma
-
Mobilarena
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
- Magisk
- Házimozi belépő szinten
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- LG LCD és LED TV-k
- Okosóra és okoskiegészítő topik
- Milyen TV-t vegyek?
- Arc Raiders
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Víz- gáz- és fűtésszerelés
- A fociról könnyedén, egy baráti társaságban
- További aktív témák...
- BESZÁMÍTÁS! GIGABYTE B760M i7 12700 32GB DDR4 512GB SSD RX 7800 XT 16GB LianLi Lancool 216 ARGB 750W
- HIBÁTLAN iPhone 13 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS4243, 100% Akksi
- BESZÁMÍTÁS! GIGABYTE A520M R5 1400 8GB DDR4 256GB SSD 500GB HDD GTX 1050 Ti 4GB ZALMAN S3 400W
- GYÖNYÖRŰ iPhone 12 64GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3653
- Honor 200 Pro 512GB,Újszerű,Dobozaval,12 hónap garanciával
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50

