Új hozzászólás Aktív témák

• #40024 Delila_1 veterán gaben86 #40022

  Új Válasz 2019-01-22 15:00:03 #40024

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #40022 üzenetére

  A

  For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet

  programrész helyett legyen

  Sheets(1).Copy After:=ThisWorkbook.Sheets(1)

• #39640 Delila_1 veterán gaben86 #39639

  Új Válasz 2018-11-21 15:15:40 #39640

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #39639 üzenetére

  Szívesen. Remélem, összejön.

• #39637 Delila_1 veterán gaben86 #39635

  Új Válasz 2018-11-21 14:22:06 #39637

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.

• #39506 Delila_1 veterán gaben86 #39505

  Új Válasz 2018-10-31 13:15:06 #39506

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #39505 üzenetére

  Szívesen.

• #39504 Delila_1 veterán gaben86 #39497

  Új Válasz 2018-10-31 07:18:48 #39504

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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

• #39493 Delila_1 veterán gaben86 #39491

  Új Válasz 2018-10-30 16:09:16 #39493

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #39491 üzenetére

  Ehhez ismerni kellene a lapok felépítését.

• #33623 lappy őstag gaben86 #33622

  Új Válasz 2017-01-10 17:58:55 #33623

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz gaben86 #33622 üzenetére

  Ez az A1 képletét másolja a B2 helyre minden munkalapra

  Sub InsertFormula()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Range("B2").Formula = Range("A1").Formula

Next wSheet

End Sub

• #31143 Delila_1 veterán gaben86 #31142

  Új Válasz 2016-03-27 06:32:59 #31143

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #31142 üzenetére

  Szívesen.

• #31139 Delila_1 veterán gaben86 #31138

  Új Válasz 2016-03-26 18:17:01 #31139

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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

• #22347 Delila_1 veterán gaben86 #22344

  Új Válasz 2014-07-08 17:39:41 #22347

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #22344 üzenetére

  Szívesen.

• #22342 Delila_1 veterán gaben86 #22341

  Új Válasz 2014-07-08 15:30:35 #22342

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #22341 üzenetére

  A VB szerkesztőben (Alt+F11) Ctrl+g-re bejön az Immediate ablak.
  Oda beírod:
  ?Application.UserName
  és Enter.
  Kiírja az aktuális felhasználó nevét.

• #22337 Delila_1 veterán gaben86 #22336

  Új Válasz 2014-07-08 14:08:58 #22337

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Sub

  A gaben86 helyett a saját felhasználói nevedet írd be.

• #22317 slashing senior tag gaben86 #22316

  Új Válasz 2014-07-07 21:10:17 #22317

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  slashing

  senior tag

  válasz gaben86 #22316 üzenetére

  Ennek a makrónak én is hasznát venném meg tennéd hogy bemásolod? Köszi előre is

• #22315 lappy őstag gaben86 #22314

  Új Válasz 2014-07-07 19:58:29 #22315

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz gaben86 #22314 üzenetére

  Talán egy próbát megér ha a legördülő lista cella helyét is beírod a makró azon részébe ahol kötelező azt kitöltened.

Új hozzászólás Aktív témák