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

• #52276 Delila_1 veterán Morphy #52274

  Új Válasz 2024-03-06 09:21:56 #52276

  Ú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 Morphy #52274 üzenetére

  Szívesen, végül összejött.

• #52273 Delila_1 veterán Morphy #52272

  Új Válasz 2024-03-06 07:45:04 #52273

  Ú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 Morphy #52272 üzenetére

  KÉT kereses makród van, a régi törlendő.

  A makrót a lapodhoz kell rendelni. Mikor a G1-be beírod a keresendő értéket, végrehajtódik a szűrés. Mikor kitörlőd a G1 tartalmát, "kinyitja" a táblázatot, megszűnik a szűrés:

• #52271 Delila_1 veterán Morphy #52270

  Új Válasz 2024-03-06 06:46:49 #52271

  Ú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 Morphy #52270 üzenetére

  Próbáld így:
  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$1" Then kereses Target.Value
End Sub

  Sub kereses(keres)
    If keres = "" Then
        ActiveSheet.ListObjects("adatbazis").Range.AutoFilter Field:=41
    Else
        ActiveSheet.ListObjects("adatbazis").Range.AutoFilter Field:=41, Criteria1:=keres
    End If
End Sub

• #44599 Delila_1 veterán Morphy #44598

  Új Válasz 2020-08-08 20:21:41 #44599

  Ú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 Morphy #44598 üzenetére

  Ahogy FFeri is írta, elég gyalázatos az Excel dátum-kezelése.
  Próbáld meg, hogy szélesre veszed az oszlopot, akkor a dátumok jobbra igazítva jelennek meg, az esetleges szövegként megadottak balra.

  Összeállítottam egy ilyen vegyes (A) oszlopot, majd egy (B) segédoszlopban felszoroztam 1-gyel minden tagját. Érdekes módon a szövegeseket is számmá alakította a szorzás, és a B oszlop dátumkénti formázása valódi dátumot csinált mindegyikből. A szűrés is megfelelően működött.

• #44597 Fferi50 Topikgazda Morphy #44596

  Új Válasz 2020-08-07 12:31:36 #44597

  Ú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

  

  Fferi50

  Topikgazda

  válasz Morphy #44596 üzenetére

  Szia!
  Sajnos a dátumok kezelése ezen a területen borzasztó az Excelben. Esetleg egy részletet, mondjuk csak addig az oszlopig, amiben a dátum van, fel tudnád tenni valahová. Természetesen az érzékeny adatok nélkül és elég lenne kb. 50 sor is.
  Tennék még egy próbát a helyedben: Átmásolnám az adatokat és megnézném, hogy az új helyen mi történik.
  Nekem ezzel a formával, amit mutattam, működik.
  Üdv.

• #44595 Fferi50 Topikgazda Morphy #44594

  Új Válasz 2020-08-07 11:49:35 #44595

  Ú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

  

  Fferi50

  Topikgazda

  válasz Morphy #44594 üzenetére

  Szia!
  Biztos, hogy dátumok vannak a szűrni kivánt oszlopban?
  Üdv.

• #44592 Fferi50 Topikgazda Morphy #44590

  Új Válasz 2020-08-07 08:44:33 #44592

  Ú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

  

  Fferi50

  Topikgazda

  válasz Morphy #44590 üzenetére

  Szia!
  Mi lenne, ha így próbálnád:
  ActiveSheet.ListObjects("adatbazis").Range.AutoFilter Field:=3, Criteria1:=xlFilterThisYear, Operator:=xlFilterDynamic

  Üdv.

• #44591 Delila_1 veterán Morphy #44590

  Új Válasz 2020-08-07 06:50:57 #44591

  Ú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 Morphy #44590 üzenetére

  Próbáld így

  ActiveSheet.ListObjects("adatbazis").Range.AutoFilter Field:=3, Criteria1:= _
Array("="), Operator:=xlFilterValues, Criteria2:=Array(0, "12/31/2020")

  Esetleg a saját dátumformáddal.

• #44242 Fferi50 Topikgazda Morphy #44241

  Új Válasz 2020-06-11 08:23:51 #44242

  Ú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

  

  Fferi50

  Topikgazda

  válasz Morphy #44241 üzenetére

  Szia!
  A PrintArea szöveges változót vár, azaz a nyomtatási terület címét. Tehát a változód neve, mondjuk nyomtter, akkor nyomtter="$A$1:$B$", illetve ha egy cellába teszed (ez legyen az X1), akkor a cella értéke legyen $A$1:$B$2.
  Ezután
  Worksheets("final").PageSetup.PrintArea=Worksheets("info").Range("X1").Value
  vagy:
  Worksheets("final").PageSetup.PrintArea=nyomtter
  Persze a nyomtter változód a feltételnek megfelelően kell beállítanod.
  Ebben az esetben nem kell külön cellába kiírni a címet.
  Üdv.

• #44241 Morphy csendes tag Morphy #44233

  Új Válasz 2020-06-11 03:18:43 #44241

  Ú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

  

  Morphy

  csendes tag

  válasz Morphy #44233 üzenetére

  Na, az első részt és a mentési részt sikerült megoldanom. Már csak egy maradt:

  Ha az info lapon az A1-be kerül adat, akkor a nyomtatási terület legyen a final lapon A1:B2
  Ha az info lapon az A2-be kerül adat, akkor a final lapon A3:B4
  Ha az info lapon az A3-ba kerül adat, akkor a final lapon A5:B6
  ....

  Egy külön cellába kihozom, hogy melyik területet nyomtassa, de a makrónál a .PageSetup.printArea -t nem tudom paraméterezni a váltózóval, mert béna vagyok.

  Tudna valaki erre megoldást?

• #30700 Delila_1 veterán Morphy #30698

  Új Válasz 2016-02-22 07:48:01 #30700

  Ú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 Morphy #30698 üzenetére

  A laphoz rendeld:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ide As Long
  If Target.Address = "$A$1" Then
  ide = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1
  Sheets(2).Range("A" & ide) = Target
  End If
  End Sub

  Ha még üres a második lap A oszlopa, A2-től kezdve írja be egymás alá az első lap A1-be bevitt adatait.

• #30220 Delila_1 veterán Morphy #30219

  Új Válasz 2016-01-24 10:30:08 #30220

  Ú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 Morphy #30219 üzenetére

  Szívesen.

• #30218 Delila_1 veterán Morphy #30217

  Új Válasz 2016-01-24 08:00:02 #30218

  Ú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 Morphy #30217 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim abra, utvonal As String, kiterj As String
  If Target.Address = "$A$1" Then
  utvonal = "D:\Képek\" '*****
  kiterj = ".jpg" '*****
  abra = utvonal & Application.WorksheetFunction.VLookup(Target, Range("I:J"), 2, 0) & kiterj '*****
  
  On Error Resume Next
  ActiveSheet.Pictures("Kép").Delete
  ActiveSheet.Pictures.Insert(abra).Name = "Kép"
  ActiveSheet.Pictures("Kép").Select
  With Selection
  .Left = Columns(2).Left
  .Top = Rows(3).Top
  .Width = 70 '*****
  .Height = 65
  End With
  Range("A1").Select '*****
  End If
  End Sub

• #30216 Fferi50 Topikgazda Morphy #30215

  Új Válasz 2016-01-23 20:23:31 #30216

  Ú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

  

  Fferi50

  Topikgazda

  válasz Morphy #30215 üzenetére

  Szia!

  Azt jelenti, hogy az A1 cellához nem fűztél megjegyzést. Delila előző hozzászólása tartalmazza, hogy fűzz megjegyzést a cellához. Ezt meg kell tenned "kézzel" - továbbá a megjegyzés szöveg kitörlését is - , mielőtt a makró elindulna.
  De ki is egészíthető a makró a következő sorral:

  Target.AddComment Text:=""
  Ezt a kep= sor után kell beírni.

  Üdv.

• #30214 Delila_1 veterán Morphy #30213

  Új Válasz 2016-01-23 12:45:20 #30214

  Ú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 Morphy #30213 üzenetére

  Szívesen.

  Ha nem az A1 cellában van az érvényesítésed, akkor az

  If Target.Address = "$A$1" Then sorban is kell módosítanod a helyet.

  A kep = utvonal kezdetű sor végén is át kell írnod a Range("I:J") -t, arra a két oszlopra, ahol a termékneveid és a képek neve van.

• #30212 Delila_1 veterán Morphy #30211

  Új Válasz 2016-01-23 07:41:17 #30212

  Ú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 Morphy #30211 üzenetére

  Az A1 cellába tettem az érvényestést, az I oszlopban vannak a terméknevek, mellettük a hozzájuk tartozó képek nevei.

  

  Az A1 cellához fűzz megjegyzést, töröld ki belőle a szöveget.

  A makrót a lapodhoz rendeld (a téma összefoglaló szerint). Írd át a két, csillagokkal jelzett sorban az útvonalat, és a képek kiterjesztését – ha szükséges.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim kep, utvonal As String, kiterj As String
  
  utvonal = "D:\Képek\" '*****
  kiterj = ".jpg" '*****
  
  If Target.Address = "$A$1" Then
  kep = utvonal & Application.WorksheetFunction.VLookup(Target, Range("I:J"), 2, 0) & kiterj
  Target.Comment.Shape.Fill.UserPicture kep
  End If
  End Sub

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