Ú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
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Opel topik
- Milyen routert?
- A fociról könnyedén, egy baráti társaságban
- Xbox Series X|S
- TCL LCD és LED TV-k
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Projektor topic
- Synology routerek
- Melyik tápegységet vegyem?
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- SZÁLCSISZOLT FÉM HATÁSÚ Dell Latitude 5420 14" Touchscreen i5-1135G7 16GB 256GB 1 év garancia
- HIBÁTLAN iPhone 15 Pro 128GB Blue Titanium -1 ÉV GARANCIA -Kártyafüggetlen
- HIBÁTLAN iPhone 15 Pro Max 256GB Natural Titanium -1 ÉV GARANCIA -Kártyafüggetlen, 100% Akkumulátor
- BESZÁMÍTÁS! MSI B550M R5 5600X 16GB DDR4 512GB SSD ROG RTX 3070 Ti 8GB Asus A31 PLUS TG ARGB 750W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest





