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

• #35180 attilalr2 újonc attilalr2 #35171

  Új Válasz 2017-05-12 18:56:43 #35180

  Ú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

  

  attilalr2

  újonc

  válasz attilalr2 #35171 üzenetére

  Köszönöm mindenkinek, mindegyik megoldás segített, Fferi50 viszont zseniális megoldással állt elő. Köszönöm még 1X.

• #35175 attilalr2 újonc attilalr2 #35171

  Új Válasz 2017-05-12 13:54:23 #35175

  Ú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

  

  attilalr2

  újonc

  válasz attilalr2 #35171 üzenetére

  Köszönöm a tippeket, este lesz időm próbálkozni vele, írok, hogy mire jutottam

• #35173 Fferi50 Topikgazda attilalr2 #35171

  Új Válasz 2017-05-12 11:21:34 #35173

  Ú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 attilalr2 #35171 üzenetére

  Szia!

  Az alábbi felhasználói függvénnyel megoldható:

  Function bevizsgal(ByRef hol As Range, ByRef mit As Range)
Dim sr As Range, van As Integer, mr As Range
van = 0
For Each sr In hol.Rows
van = van + (Application.CountIf(sr, mit.Cells(1)) > 0 And Application.CountIf(sr, mit.Cells(2)) > 0) * -1
Next
bevizsgal = van
End Function

  A függvényt egy modullapra kell beírni. (Alt F11, menüben insert - module, majd bemásolod)
  Ugyanúgy kell használni mint egy beépített függvényt. Ha húzni szeretnéd a képletet, akkor az első paramétert $ jelekkel kiegészítve kell megadnod.

  A füzetet makróbarátként kell elmentened, ha meg akarod tartani a függvényt.

  Üdv.

• #35172 Pakliman tag attilalr2 #35171

  Új Válasz 2017-05-12 10:43:30 #35172

  Ú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 attilalr2 #35171 üzenetére

  Szia!

  Ezt a DARABTELI függvénnyel meg tudod oldani.
  Segédoszlopot célszerű alkalmazni, amiben 1 vagy 0 értéket ad a függvény attól függően, hogy az adott sorban a 2 szám együtt szerepel-e:

  =HA(ÉS(DARABTELI(A1:E1;1)=0;DARABTELI(A1:E1;2)=0);1;0)
Esetleg 2 cellát is használhatsz, amibe a keresendőket írod, így bármikor változtathatod.
Ekkor pl::
=HA(ÉS(DARABTELI(A1:E1;$G$1)=0;DARABTELI(A1:E1;$H$1)=0);1;0)

  A SZUM()-al összesítheted.

• #28036 Pakliman tag attilalr2 #28000

  Új Válasz 2015-08-05 11:26:30 #28036

  Ú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 attilalr2 #28000 üzenetére

  Hali!

  Nem tudom, Nálad milyen kódolás van.
  A munkahelyemen spec. program TXT kimenetét kellett átalakítanom olvashatóbbá.
  A makró (standard modulba rakod):

  Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
  Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
  
  Public Function Konvert(mit, Optional KellKonvertálni As Boolean = True) As String
  Dim vissza As Long
  Dim dest As String
  
  If KellKonvertálni Then
  dest = Space(Len(mit))
  vissza = OemToCharBuff(mit, dest, Len(mit))
  Else
  dest = mit
  End If
  
  Konvert = dest
  
  End Function

  Ezt használhatod cellába beírva, vagy akár egy újabb makróban is, amelyik végigfut a szükséges cellákon és átalakítja a tartalmukat.

• #28007 Fferi50 Topikgazda attilalr2 #28000

  Új Válasz 2015-08-01 21:45:19 #28007

  Ú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 attilalr2 #28000 üzenetére

  Szia!

  Próbáld ki ezt a makrót:
  Sub cserelo(ByRef rng As Range, ByVal mit As String, ByVal mire As String)
  Dim cl As Range, xx As Integer
  If Len(mit) <> Len(mire) Then MsgBox "Nem egyforma a két szöveg!", vbInformation: Exit Sub
  For Each cl In rng.Cells
  If Not IsEmpty(cl) Then
  For xx = 1 To Len(mit)
  cl.Value = Replace(cl.Value, Mid(mit, xx, 1), Mid(mire, xx, 1))
  Next
  End If
  Next
  End Sub

  A VBA nézet immediate ablakából indíthatod, pl. így:
  cserelo Sheets("Munka1").Range("A1:C72"),"áéó","aeo" a végén enter.

  Tehát az első paraméter a tartomány címe (vba-szerint beírva), a második a cserélendő betűk, a harmadik pedig amire cserélni kell. A második és a harmadik paramétert "szinkronban" kell tartani, mert az azonos pozícióban levő betűket cseréli (tehát első betűt az elsőre, második betűt a másodikra és így tovább).

  Üdv.

• #27318 Delila_1 veterán attilalr2 #27317

  Új Válasz 2015-06-12 12:06:54 #27318

  Ú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 attilalr2 #27317 üzenetére

  A másodikat használd! Az elsőben szerepel az INDIREKT függvény, de csak azért, mert a saját oszlopában kellett keresni, és ennek a segítségével kilőttem a körkörös hivatkozást.

  Az INDIREKT függvény mindig, mikor új adatot viszel be a lapra (vagy törölsz), frissül, ezzel lassul a számolás.

• #27316 Delila_1 veterán attilalr2 #27315

  Új Válasz 2015-06-12 11:52:09 #27316

  Ú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 attilalr2 #27315 üzenetére

  Az F2 képlete =HAHIBA(FKERES(E2;A:B;2;0);"X") legyen.

• #27314 Delila_1 veterán attilalr2 #27312

  Új Válasz 2015-06-12 11:10:02 #27314

  Ú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 attilalr2 #27312 üzenetére

  Vittem be 2 terméket kategóriával az A2:B3 tartományba. Ezek alatt a B oszlopban egy képlet hozza be a kategória nevét, mikor az A oszlopba új adatot viszek be. A B4 cella képlete:

  =HAHIBA(FKERES(A4;INDIREKT("A$2:B" & SOR()-1);2;0);"X")

  

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