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

• #43100 Delila_1 veterán zsolti_20 #43094

  Új Válasz 2020-02-21 07:32:15 #43100

  Ú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 zsolti_20 #43094 üzenetére

  Makró nélküli megoldás a képek megjelenítéséhez.

  Két lapod van. A képeket tartalmazó neve Terméklista, a másiké Megjelenítés.
  A Terméklistára viszed fel a képeket a csatolt kép szerint. Az A oszlopba írod a megnevezést. Közvetlenül alatta bekeretezel egy (a példa szerint 10×4-es, de lehet más) területet, ide szúrod be a képet középre.

  

  A kép nevét beírod a G oszlopba, jöhet a következő kép. Mikor mindet felvitted, mehetünk a másik lapra.

  

  A B1 cellában érvényesítést adsz meg, ami a Terméklista G oszlopára mutat. Kiválasztasz egy képet.
  A Képletek | Névkezelőben létrehozol egy újat. A neve legyen Kep_mutatasa, a képlet
  =ELTOLÁS(Terméklista!$A$1;HOL.VAN(Megjelenítés!$B$1;Terméklista!$A:$A;0);0;10;4)
  ahol a 10 a másik lapon egy-egy kép magassága, a 4 pedig a szélessége.
  Beszúrsz egy akármilyen képet az érvényesítés alá. Ráállsz a képre, és a szerkesztőlécen megadod a hivatkozást:
  =Kep_mutatasa
  Ezzel kész. Mindig az a kép jelenik meg a Megjelenítés lapon, amit a B1 cella érvényesítésében kiválasztasz.

• #43091 Delila_1 veterán zsolti_20 #43089

  Új Válasz 2020-02-19 12:12:59 #43091

  Ú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 zsolti_20 #43089 üzenetére

  Ez nem jó? Nem kellene növelned a fájlod méretét a sok képpel.

• #43081 Delila_1 veterán zsolti_20 #43077

  Új Válasz 2020-02-17 11:53:46 #43081

  Ú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 zsolti_20 #43077 üzenetére

  A számokat sorold fel valahol egymás alatt, és hozz létre az A1 cellában egy érvényesítést ezekből. Feltételezem, hogy a számok egy-egy kép nevével megegyeznek.

  Rajzolj egy négyzetet (beszúrás, ábrák, alakzatok), aminek a Kép nevet adod.
  

  Private Sub Worksheet_Change(ByVal Target As Range)
Const utvonal As String = "F:\Jpg\"

If Target.Address = "$A$1" Then
ActiveSheet.Shapes.Range("Kép").Select
Selection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
Cells(1).Select
End If
End Sub

  Rendeld a makrót a lapodhoz. Írd át az utvonal változót a saját útvonaladra, a végén legyen "\".
  Ha nem jpg kiterjesztésűek a képeid, a
  Selection.ShapeRange.Fill.UserPicture utvonal & Target.Value & ".jpg"
  sor végén írd át.

• #42990 Delila_1 veterán zsolti_20 #42986

  Új Válasz 2020-02-05 15:32:01 #42990

  Ú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 zsolti_20 #42986 üzenetére

  Az első If-es sor legyen

  If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then _
Range("A" & Target.Row + 1 & ":E" & Target.Row + 1).Locked = False

  A teljes sor zárolását szüntettem meg az előző makróval.

• #42985 Delila_1 veterán zsolti_20 #42984

  Új Válasz 2020-02-05 11:14:57 #42985

  Ú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 zsolti_20 #42984 üzenetére

  Szívesen. Kávé jöhet!

• #42983 Delila_1 veterán zsolti_20 #42982

  Új Válasz 2020-02-05 11:04:33 #42983

  Ú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 zsolti_20 #42982 üzenetére

  Óhajod parancs.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim WF As WorksheetFunction
Application.EnableEvents = False
Set WF = Application.WorksheetFunction

ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then Rows(Target.Row + 1).Locked = False
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 0 Then
Range("A" & Target.Row + 1 & ":E" & Target.Row + 1) = ""
Rows(Target.Row + 1).Locked = True
End If
Application.EnableEvents = True
End Sub

• #42977 Delila_1 veterán zsolti_20 #42970

  Új Válasz 2020-02-05 09:26:08 #42977

  Ú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 zsolti_20 #42970 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim WF As WorksheetFunction

Set WF = Application.WorksheetFunction
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then Rows(Target.Row + 1).Locked = False
If WF.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 0 Then Rows(Target.Row + 1).Locked = True
End Sub

  Ez azt csinálja, hogy ha pl. a 4. sor adatait törlöd, az 5. sor celláit zárolja. A 4. sor újra kitöltése után ismét írható lesz az ötödik.
  Erre gondoltál?

• #42953 Delila_1 veterán zsolti_20 #42952

  Új Válasz 2020-02-04 12:28:21 #42953

  Ú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 zsolti_20 #42952 üzenetére

  A teljes lapon zárolod a cellákat, majd levéded a lapot. Érdemes kivenni a pipát a Zárolt cellák kijelölése elől, ne is tudjon rálépni a következő sorra.
  Rendeld a lenti makrót a lapodhoz (lásd a Téma összefoglalót).

  Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
If Application.WorksheetFunction.CountA(Range("A" & Target.Row & ":E" & Target.Row)) = 5 Then
Rows(Target.Row + 1).Locked = False
End If
End Sub

  Ez a makró csak akkor szünteti meg a zárolást a KÖVETKEZŐ soron, mikor már minden adat megvan az A: E tartományban,

• #42940 sztanozs veterán zsolti_20 #42937

  Új Válasz 2020-02-04 08:40:01 #42940

  Ú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

  

  sztanozs

  veterán

  válasz zsolti_20 #42937 üzenetére

  Mik közötti köztes cellák?

• #42821 Mutt senior tag zsolti_20 #42820

  Új Válasz 2020-01-23 22:27:48 #42821

  Ú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

  

  Mutt

  senior tag

  válasz zsolti_20 #42820 üzenetére

  Szia,

  A1 cellában található szöveget/számot ezzel a tömbképlettel tudsz megfordítani:

  =FŰZ(KÖZÉP(A1;HOSSZ(A1)-SOR(INDIREKT("$A$1:$A"&HOSSZ(A1)))+1;1))

  Dátumot szöveggé kell alakítani a SZÖVEG függvénnyel.

  =FŰZ(KÖZÉP(SZÖVEG(A1;"ééééhhnn");HOSSZ(SZÖVEG(A1;"ééééhhnn"))-SOR(INDIREKT("$A$1:$A"&HOSSZ(SZÖVEG(A1;"ééééhhnn"))))+1;1))

  üdv

• #42818 Fferi50 Topikgazda zsolti_20 #42817

  Új Válasz 2020-01-23 19:55:49 #42818

  Ú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 zsolti_20 #42817 üzenetére

  Szia!
  Szerintem csak makróval (felhasználói függvénnyel) lehet.
  Pl:
  Function fordit(hol As Range) As String
Dim ch As Integer, sz As String
For ch = Len(hol) To 1 Step -1
    sz = sz & Mid(hol, ch, 1)
Next
fordit = sz
End Function

  Ezt ugyanúgy használhatod, mint a beépített függvényeket.

  Üdv.

• #42660 Pakliman tag zsolti_20 #42658

  Új Válasz 2020-01-06 11:01:19 #42660

  Ú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

  

  Pakliman

  tag

  válasz zsolti_20 #42658 üzenetére

  Addig is az A és/vagy B ismétlődéseire gyógyír:
  
  Csak a C oszlop változott (most):
  =HA(DARABTELI($A$2:A2;A2)=1;HA(DARABTELI(B:B;A2)>0;1;0);0)
  A képlet első része (első HA(DARABTELI(...)):
  az A oszlopban csak azokkal foglalkozunk, amelyik számból csak 1 db van illetve azokkal, melyekből több
  van, DE CSAK AZ ELSŐ előfordulásnál!

  Második HA(DARABTELI(...):
  a B oszlopban nem érdekel hánydarab van egy számból, ha nem 0, akkor mindenképpen 1.

• #42659 Pakliman tag zsolti_20 #42658

  Új Válasz 2020-01-06 10:40:04 #42659

  Ú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

  

  Pakliman

  tag

  válasz zsolti_20 #42658 üzenetére

  Nem teljesen világos számomra, hogy mit is szeretnél
  Hol lehetnek ismétlődések? A és B oszlopban is?
  Az E oszlopra vonatkozóan sem értem a dolgot
  Légyszi, egy kicsit konkrétabban...
  Esetleg példával is...

• #42655 Pakliman tag zsolti_20 #42654

  Új Válasz 2020-01-06 09:30:28 #42655

  Ú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

  

  Pakliman

  tag

  válasz zsolti_20 #42654 üzenetére

  IFERROR

• #42653 Pakliman tag zsolti_20 #42651

  Új Válasz 2020-01-06 09:13:57 #42653

  Ú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

  

  Pakliman

  tag

  válasz zsolti_20 #42651 üzenetére

  Itt megtalálod

• #42652 ny.janos tag zsolti_20 #42651

  Új Válasz 2020-01-06 09:13:52 #42652

  Ú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

  

  ny.janos

  tag

  válasz zsolti_20 #42651 üzenetére

  Szia!

  Itt találsz egy fordítót.

• #42650 Pakliman tag zsolti_20 #42649

  Új Válasz 2020-01-06 09:00:06 #42650

  Ú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

  

  Pakliman

  tag

  válasz zsolti_20 #42649 üzenetére

  Szia!

  Egy lehetőség:

  Feltételezve, hogy minden szám csak 1-szer szerepel.
  (C és D segédoszlopok, E a sorban kiírt)
  
  Nem ilyen bonyolult, ha nem kell sorban kiírni (harmadik oszlopba sorban kiírná).

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