Hirdetés
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: MárkaLánc
- talmida: My Art II.
- btz: Internet fejlesztés országosan!
- hcl: Olympus E-PL1 nyomozás
-
LOGOUT
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
-
Delila_1
veterán
válasz
gaben86
#39635
üzenetére
Először meg kell találni a sort, amelyik a kiválasztott azonosítóhoz tartozik. Ezt a HOL.VAN függvénnyel keresheted ki.
=HOL.VAN(Munka2!H1;$A:$A;0)Ezt használhatod az INDEX függvényben.
=INDEX(Munka2!$A:$BO;HOL.VAN(Munka2!H1;$A:$A;0);1)ahol az első paraméter, a Munka2!$A:$BO határozza meg a tartományt, amiben keresel,
a második paraméter a tartományban lévő keresett sor, amit fentebb már írtam,
az utolsó paraméter (1) adja meg, hogy a tartomány melyik oszlopából kéred az adatod. Az 1 az A oszlopból, a 2 a B-ből, stb...Ha a másik lap egyes oszlopaiba a Munka2 lap előző oszlopának az értékét akarod beilleszteni – B-be a Munka2 lap A oszlopát –, akkor az oszlopszám helyére kerülhet a képletben OSZLOP()-1 . Az OSZLOP() függvény az aktuális oszlop számát adja meg.
Tehát a kigyűjtendő lapon kell az egyes cellákba beírni az INDEX-HOL.VAN párost. Törlésre nincs feltétlenül szükség, hiszen az üres cellák értékei is felülíródnak a képletek által.
-
Delila_1
veterán
válasz
gaben86
#39497
üzenetére
Modulba másold a makrót, majd rendeld a gombodhoz.
Sub Masolas()
Dim utvonal As String, FN As String
utvonal = ThisWorkbook.Path & "\"
FN = Sheets("Munka1").Range("L1")
Range("A1:N55").Copy
Workbooks.Add
Sheets(1).Range("A1").PasteSpecial xlPasteValues
Sheets(1).Range("A1").PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs Filename:=utvonal & FN & ".xlsx"
ActiveWorkbook.Close
End Sub -
Delila_1
veterán
válasz
gaben86
#31138
üzenetére
Az M oszlopba írtam be soronként a megjelenítendő képek nevét, kiterjesztés nélkül. Mikor az A:G tartományban rákattintasz egy cellára, ahol az M oszlopban van képnév, a H oszlopban megjelenik a megfelelő kép.
A lapodhoz kell rendelni a makrót. Írd át az útvonalat!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Kepneve As String, utvonal As String
If Not Intersect(Target, [A:G]) Is Nothing Then
utvonal = "C:\Adott mappa\" 'Ide az igazi útvonalat írd be!
On Error Resume Next
ActiveSheet.Shapes("Kep").Delete
Kepneve = Cells(Target.Row, "M") & ".jpg"
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Name = "Kep"
.Left = Columns(8).Left
.Top = ActiveCell.Top
.Height = 180
End With
On Error Goto 0
End If
End Sub -
Delila_1
veterán
válasz
gaben86
#22336
üzenetére
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.UserName <> "gaben86" Then
If Cells(1, 1).Value = "" Then
MsgBox ("Kilépés elott az A1 cellát ki kell tölteni.")
Cancel = True
End If
End If
End SubA gaben86 helyett a saját felhasználói nevedet írd be.
Új hozzászólás Aktív témák
Hirdetés
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Motorola Edge 40 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4598, 100% Akkumulátor
- AKCIÓ! Asrock Z270 i7 6700K 16GB DDR4 512GB SSD RTX 2060 6GB GameMax Storm 2 AB Adata 600W
- Apple iPhone 17 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
- 27% - ÚJ - Captiva 16" Notebook! Ryzen 9955HX / RTX 5090 / 64GB DDR5 / 2TB NVMe! BeszámítOK
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest