-
Fototrend
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.
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.
-
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
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.
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.
Új hozzászólás Aktív témák
- Energiaital topic
- Felfedte a Xeon 600 sorozat sötét titkait az Intel
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- PayPal
- Otthoni hálózat és internet megosztás
- Hegesztés topic
- AMD FX
- Eredeti játékok OFF topik
- Sütés, főzés és konyhai praktikák
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Bioshock 2 Special Edition
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS4409
- Dell XPS 13 9300 i7-1065G7 8GB 1000GB FHD+ 500nit! 1 év garancia
- Bomba ár! Dell Latitude E6430 - i5-3GEN I 8GB I 128-256SSD I HDMI I 14" HD+ I W10 I Garancia!
- Garmin USB ANT Stick jeladó eladó
- Részletfizetés. BankMentes. Kamatmentes. Új noblechairs EPIC műbőr FEKETE - KÉK 3 év garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
" & row_main).Copy
Fferi50