Hirdetés
- Nothing Phone (3a) Lite – mennyit ér a név?
- Xiaomi 15T Pro - a téma nincs lezárva
- Fotók, videók mobillal
- Samsung Galaxy Watch6 Classic - tekerd!
- Ismét az Apple veheti át a piacvezető pozíciót
- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Megtartotta Európában a 7500 mAh-t az Oppo
- Jelentősen átalakulhat a Xiaomi 17 Ultra kamerarendszere
- Milyen okostelefont vegyek?
Új hozzászólás Aktív témák
-
öcsi-bácsi
csendes tag
Sziasztok!
Accses lekérdezés adatait szeretném world körlevélbe illeszteni.
Van ötletetek, hogyan tehetném meg?
Akár VB, akár acces jelentés formája érdekelne. -
öcsi-bácsi
csendes tag
válasz
öcsi-bácsi
#1490
üzenetére
megtaláltam:
Sub rög4()
'minta védelem feloldására
Sheets("Munka2").Select
'azért kell először feloldani a védelmet, mert a kijelölés munka1!a1 megszűnik
pass = "123456789"
ActiveSheet.Unprotect pass
'most lehet másolni!
Sheets("munka1").Select
Range("a1").Select
Selection.Copy
Sheets("Munka2").Select
Range("A1").Select
ActiveSheet.Paste
'majd rátenni a védelmet!
ActiveSheet.Protect Password:=pass
Sheets("munka1").Select
End Sub
-
öcsi-bácsi
csendes tag
válasz
#90999040
#1489
üzenetére
Köszi, rendes vagy.
Közben találtam egy megoldást:
'visszhang kikapcs
Application.ScreenUpdating = False
"makró fut"
Application.ScreenUpdating = TrueAmi viszont közben kérdésessé vált: adatokat másolok egy űrlapról makróval, egyik excel lapról a másikra, viszont szándékaim szerint a második lap egyfajta adatbázis lesz, amit ellátnék lapvédelemmel. Viszont a makróm természetesen megáll, ha a második lap védelmét bekapcsolom.
Kérdésem: hogyan másolhatna a makróm mégis ide adatokat?
-
öcsi-bácsi
csendes tag
Sziasztok!
Szeretném, ha a makróm futása közben nem mutatná az oldalakat ahonnan adatokat másol, csak a végeredményt!
Biztosan van rá valami utasítás,csak még kezdő vagyok.
Előre is köszi.

Új hozzászólás Aktív témák
- Nothing Phone (3a) Lite – mennyit ér a név?
- Motoros topic
- Milyen videókártyát?
- A robotaxik bizony karamboloznak, nincs itt semmi látnivaló!
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- eMAG vélemények - tapasztalatok
- LEGO klub
- Otthoni hálózat és internet megosztás
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- Xiaomi 15T Pro - a téma nincs lezárva
- További aktív témák...
- ÚJ-BONTATLAN ! Sony PlayStation 5 (PS5) Slim Digital Edition 30th Anniversary Limited Edition Bundle
- Minőségi Seasonic 850W- os gold minősítésű tápegység!
- Újszerű ÉRINTŐS Dell,FullHD IPS i7 8665u(8x4,8Ghz)IntelUHD,16-32GB RAM,512SSD,Új akku
- Playstation 5 + 1 kontroller
- Poco F7 Ultra - 16/512GB - ALZA garanciális 2028.07.-ig
- iKing.Hu-Nothing Phone 3a Pro Grey Glyph stílus, 3 optikai zoom 12/256 GB -3 hónap garancia
- AKCIÓ! HP EliteBook x360 830 G7 i5-10210U 16GB 1000GB 1 év garancia
- Xiaomi Redmi 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi Redmi Note 12 128GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Lenovo ThinkPad X390: i5-G8 I 8GB I 256SSD I 13,3" HD I HDMI I Cam I W11 I Gari!
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi






