-
IT café
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
-
earth
csendes tag
Sziasztok.
Egy segítséget kérnék. Szeretnék az excel macro-val egy összehasonlítást elvégezni ahol ciklikusan kérdez. Úgy szeretném hogy egy munkafüzeten belül lenne 3 db sheet. Első sheet-en lenne egy oszlop sok különböző számokkal egymás alatt a második sheet-en is és a harmadik sheet-re szeretném másolni azokat az adatokat amik megegyeznek.
Ha valaki megoldja nagyon hálás lennék érte.
Minden segítség szívesen veszek.
Előre is köszönöm. -
earth
csendes tag
válasz Delila_1 #20218 üzenetére
Hello.
Köszönöm a válaszod, de én több száz vagy ezer számról beszélek és nem szeretném megszámolni mennyi hasonló van én azt szeretném hogy ezt a program megcsinálja maga. Az első lapon van kb több ezer termékkód egymás alatt amit egy cégtől kaptam, a második lapon pedig azok a termékkódok amiket mi szoktunk rendelni ugyanattól a cégtől de még nehezíti a feladatot hogy teljesen különböző sorrendben. És azt szeretném hogy ami az első lapon megegyezik a második lapon lévővel azt tegye a harmadik lapra.
Köszönöm.
-
earth
csendes tag
Sziasztok.
Hogyan tudnék egy munkalap egyik sheet-ről egy másik sheet-re másolni úgyhogy a képleteket nem másolja át hanem csak az értékeket.
Köszönöm előre is a segítséget.
-
earth
csendes tag
Sziasztok.
Azt tudja valaki hogyan változtassam meg ezt a program részletet hogy mindent (formátum, aláhúzások stb.) másoljon át az egyik lapról a másikra csak a képleteket ne. Gondolom a .PasteSpecial xlPasteValues ezt kellene megváltoztatni de nem tudom milyen parancsra.Program részlet:
Private Sub Végrehajtás_Click()
Dim row_main As Integer, row_sec As Integer
Sheets("proba").Range("A10:Q1000").ClearContents
Sheets("számítás").Select
row_sec = 10For row_main = 10 To 200
If Cells(row_main, 12).Value >= 1 Then
Range("A" & row_main & "" & row_main).Copy
Worksheets("proba").Range("A" & row_sec).PasteSpecial xlPasteValues
row_sec = row_sec + 1
End If
Next row_mainSegítséget előre is köszönöm.
Új hozzászólás Aktív témák
- Vírusirtó, Antivirus VPN kulcsok
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen