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

• #51979 Fferi50 Topikgazda istvankeresz #51972

  Új Válasz 2023-12-19 22:17:02 #51979

  Ú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 istvankeresz #51972 üzenetére

  Szia!
  " a Chr(34) & "SZ" & Chr(34) eredménye "SZ", azaz amit én akartam"
  Ami egyáltalán nem csoda, hiszen az idézőjel karakterkódja 34. Vagyis amit beidéztem tőled, annak a végeredménye ""SZ"" és így lesz a képletben "SZ"!, tehát a szövegbe ágyazott idézőjeleket duplázni szükséges, ha képletet viszel be VBA-ban a cellába.
  Üdv.

• #51969 Fferi50 Topikgazda istvankeresz #51966

  Új Válasz 2023-12-19 17:05:47 #51969

  Ú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 istvankeresz #51966 üzenetére

  Szia!
  "ThisWorkbook.Sheets(Textbox11.Value)Range.("A18")="
  Ez így az adott cellának értéket fog adni. Ha képletet szeretnél a cellába tenni, akkor a ThisWorkbook.Sheets(Textbox11.Value)Range.("A18").Formula -> ebben az esetben angol függvénynevek kellenek
  vagy
  ThisWorkbook.Sheets(Textbox11.Value)Range.("A18").FormulaLocal -> ebben az esetben használható a magyar függvénynév - viszont nem hordozható a makró, más nyelven nem fog működni.
  Ami a "SZ" -t illeti: A képletet szövegként kell megadni, a szövegben az idézőjelet meg kell duplázni, valahogy igy:
  ThisWorkbook.Sheets(Textbox11.Value)Range.("A18").FormulaLocal = "=(21+SZUM(F2:J2))-(SZUMHA(M2:M200;""SZ"";N2:N200))"
  Üdv.

• #51967 karlkani aktív tag istvankeresz #51966

  Új Válasz 2023-12-19 14:37:05 #51967

  Ú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

  

  karlkani

  aktív tag

  válasz istvankeresz #51966 üzenetére

  VBA-ban angolul kell használni a képleteket. A SZUMHA részt nem értem, mi az a M2 200 és N2 200?

  "SZ" helyett ""SZ""-t használj.

• #51933 Delila_1 veterán istvankeresz #51931

  Új Válasz 2023-12-12 12:21:44 #51933

  Ú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 istvankeresz #51931 üzenetére

  Szívesen.

• #51932 Delila_1 veterán istvankeresz #51931

  Új Válasz 2023-12-12 12:21:00 #51932

  Ú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 istvankeresz #51931 üzenetére

  Az eredeti makródban meghatároztad az Ir változót, ami az utolsó (vagy az utolsót követő első üres) sor. Ezt használhatod fel a belső ciklusban.

  For Each ws In ThisWorkbook.Worksheets
    ActiveWorkbook.Sheets("Maradék szabadságok").Cells(Ir,2) = ThisWorkbook.Sheets(ws.Name).Range("A2")
     Ir=Ir+1             
Next ws

• #51929 Delila_1 veterán istvankeresz #51927

  Új Válasz 2023-12-11 16:11:56 #51929

  Ú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 istvankeresz #51927 üzenetére

  Módosítottam az előzőt, nézd meg!

• #51928 Delila_1 veterán istvankeresz #51927

  Új Válasz 2023-12-11 15:54:38 #51928

  Ú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 istvankeresz #51927 üzenetére

  Persze próba nélkül.
oszlop=2
For Each ws In ThisWorkbook.Worksheets
        ActiveWorkbook.Sheets("Maradék szabadságok").Cells(9,oszlop) = ThisWorkbook.Sheets(ws.Name).Range("A2")
    oszlop=oszlop+1             
Next ws

• #51926 Delila_1 veterán istvankeresz #51925

  Új Válasz 2023-12-11 13:31:15 #51926

  Ú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 istvankeresz #51925 üzenetére

  Az Ir értékét a For Each cell cikluson belül kell növelned.

• #50427 Delila_1 veterán istvankeresz #50426

  Új Válasz 2023-02-08 09:57:56 #50427

  Ú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 istvankeresz #50426 üzenetére

  Érdemes rákeresni a cellaformázásokra, sok feladatot meg lehet oldani velük.

• #50425 Delila_1 veterán istvankeresz #50424

  Új Válasz 2023-02-08 09:18:21 #50425

  Ú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 istvankeresz #50424 üzenetére

  Akkor csak annyi a feladatod, hogy a cellaformátumot írd át.
  0,0;;

• #50423 Delila_1 veterán istvankeresz #50422

  Új Válasz 2023-02-08 09:02:30 #50423

  Ú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 istvankeresz #50422 üzenetére

  Azt elfelejtetted megadni, hogy mi legyen a vagy semmi, vagy akármi (SZ, ESZ, MSZ, stb) esetében.

• #50421 Delila_1 veterán istvankeresz #50420

  Új Válasz 2023-02-08 08:24:49 #50421

  Ú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 istvankeresz #50420 üzenetére

  

• #50399 Fferi50 Topikgazda istvankeresz #50398

  Új Válasz 2023-02-06 10:32:20 #50399

  Ú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 istvankeresz #50398 üzenetére

  Szia!
  Kiírta az mindegyiket, de mivel egyenként írattad, a következő mindig felülírta az előzőt. (Erről meggyőződhetsz, ha lépésenként hajtod végre a makrót.)
  A Caption szövegét összefűzéssel kell megadnod, a négy/vagy több cellaértéket fűzd össze és a végén jelenitsd meg a Label.Caption szövegben.
  Üdv.

• #50381 lappy őstag istvankeresz #50377

  Új Válasz 2023-02-02 12:50:23 #50381

  Ú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 istvankeresz #50377 üzenetére

  Vagy a két makró egyben
  Sub mesage()
Dim xRg, xCell As Range
Dim xTxt, xStr As String
Dim xRow, xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Rejtett elemek", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Rejtett elemek"
End Sub

• #50379 lappy őstag istvankeresz #50377

  Új Válasz 2023-02-02 12:37:56 #50379

  Ú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 istvankeresz #50377 üzenetére

  Sub mesage()
Dim msg As String
msg = ""
For i = 1 To 3
For Each a In Array("A", "B", "C")
msg = msg & Cells(i, a).Value & vbTab
Next a
msg = msg & vbCrLf
Next i
MsgBox msg
End Sub

• #50378 Delila_1 veterán istvankeresz #50377

  Új Válasz 2023-02-02 12:37:43 #50378

  Ú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 istvankeresz #50377 üzenetére

  Sub Adatok()
Dim ter As Range, CV As Range, szoveg As String
Set ter = Application.InputBox(prompt:="Kérem a tartományt", Type:=8)
For Each CV In ter
szoveg = szoveg & CV & vbLf
Next
MsgBox szoveg
End Sub

• #50376 TillaT tag istvankeresz #50374

  Új Válasz 2023-02-02 10:42:54 #50376

  Ú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

  

  TillaT

  tag

  válasz istvankeresz #50374 üzenetére

  Ha a cella értéke mellett más adatokra is szükséged lenne a celláról, akkor az alábbi kód is segíthet. Ez az aktív (aktívvá tett) cella adatait (cím, koordináták, érték, típus) adja vissza egy MsgBox-ban. A kódot hozzárendelheted egy billentyűkombinációhoz is és egy általad létrehozott gombhoz is.

  Sub Cellrangequery()
    Dim r As range
    Set r = Selection
    MsgBox "Range address: " & r.Address & vbNewLine & _
        "Range value: " & r.Value & vbNewLine & _
        "Range row: " & r.Row & vbNewLine & _
        "Range column: " & r.Column & vbNewLine & _
        "Range type: " & TypeName(r.Value)
End Sub

• #50375 lappy őstag istvankeresz #50374

  Új Válasz 2023-02-02 10:27:27 #50375

  Ú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 istvankeresz #50374 üzenetére

  Sub Get_Cell_Value1()

Dim CellValue As String

CellValue = Range("A1").Value

MsgBox CellValue

End Sub

• #50024 Pakliman tag istvankeresz #50023

  Új Válasz 2022-11-24 15:37:25 #50024

  Ú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 istvankeresz #50023 üzenetére

  Szia!

  Egy pl. a billentyű(k) tiltására/átengedésére:
  Private Sub tbValami_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub


• #50023 istvankeresz aktív tag istvankeresz #50022

  Új Válasz 2022-11-24 14:08:51 #50023

  Ú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

  

  istvankeresz

  aktív tag

  válasz istvankeresz #50022 üzenetére

  User error bocsánat.

  IsNumeric(deg) maradt benne az IsNumeric(Textbox11.value) helyett.

  Khm, mégsem jó....

  A Dr. 1 -et engedi beírni

• #50018 Fferi50 Topikgazda istvankeresz #50017

  Új Válasz 2022-11-24 08:20:59 #50018

  Ú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 istvankeresz #50017 üzenetére

  Szívesen!

• #50015 Fferi50 Topikgazda istvankeresz #50013

  Új Válasz 2022-11-24 07:24:15 #50015

  Ú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 istvankeresz #50013 üzenetére

  Szia!
  Inkább ezt próbáld ki, mert a másik nem igazán jó:
  Sub akarmi()
Dim answer As Integer, wsFound As Boolean
Dim wbSearch As Workbook, wsSearch As Worksheet
wsfound = True
On Error Resume Next
Set wsSearch = Sheets(Textbox11.Value)
If Err = 0 Then
'ha van már ilyen munkalap, akkor feltesszük a kérdést
answer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")
If answer = vbYes Then wsSearch.Copy after:=Sheets("Havi_TEMPLATE"): wsFound = True
Else
Err = 0
Sheets("Szemely_TEMPLATE").Copy after:=Sheets("Havi_TEMPLATE")
ActiveSheet.Name = Textbox11.Value
End If
On Error GoTo 0
If wsFound Then
With ActiveSheet
.Range("A2") = Textbox11.Value & " " & ComboBox7.Value
.Range("B2") = TextBox12.Value
.Range("C2") = TextBox13.Value
.Range("D2") = TextBox14.Value
End With
MsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"
End If
Textbox11.Value = ""
ComboBox7.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.
End Sub
  Egy kis magyarázat hozzá:
  Nem kell végigpörgetni a munkalapokat, mivel a vba hibakezeléssel megállapítható, ha van már ilyen munkalap => a Set után ha nincs hiba, akkor van már. Amennyiben ugyanolyan nevű új személy van, akkor ezt a munkalapot másoljuk, aminek az lesz az eredménye, hogy az Excel automatikusan ad egy sorszámot a névhez! ezzel nekünk nem kell foglalkozni.
  Ha nincs, akkor másoljuk a Templatet.
  Mivel a másolt munkalap lesz az aktív, utána beírhatjuk a szükséges adatokat az új munkalapra.
  Remélem sikerülni fog.
  Üdv.

• #50012 Fferi50 Topikgazda istvankeresz #50008

  Új Válasz 2022-11-23 16:30:32 #50012

  Ú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 istvankeresz #50008 üzenetére

  Szia!
  Egy minta makrórész:
  Sub akarmi()
Dim answer As Integer, wsFound As Boolean
Dim wbSearch As Workbook, wsSearch As Worksheet
wsFound = True
For Each wsSearch In ActiveWorkbook.Sheets
    If wsSearch.Name = TextBox11.Value Then
       answer = MsgBox("Ilyen nevű munkatárs már rögzítve! Biztos, hogy folytatod a rögzítést?", vbQuestion + vbYesNo + vbDefaultButton2, "Munkatárs rögzítése")
       wsFound = answer = vbYes
    End If
Next
If wsFound Then
    Sheets("Szemely_TEMPLATE").Copy After:=Sheets("Havi_TEMPLATE")
    With ActiveSheet
      .Name = TextBox11.Value & 2
      .Range("A2") = TextBox11.Value & " " & ComboBox7.Value
      .Range("B2") = TextBox12.Value
      .Range("C2") = TextBox13.Value
      .Range("D2") = TextBox14.Value
    End With
    MsgBox "Munkatárs sikeresen rögzitve! Kérlek zárd be és nyisd meg újra a programot!"
End If
TextBox11.Value = ""
ComboBox7.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
'Sheets(xx).Activate az alapmunkalap aktíválása, ha szükséges.
End Sub
  A Combobox Additem tulajdonságát nézd meg a forrás frissítésre.
  Üdv.

• #50009 Fferi50 Topikgazda istvankeresz #50008

  Új Válasz 2022-11-23 15:51:53 #50009

  Ú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 istvankeresz #50008 üzenetére

  Szia!
  Én az ugrálást egyáltalán nem támogatom.
  A Combobox forrását (List tulajdonság) lehet frissíteni vba-ból is, nem kell azért bezárni a munkalapot.
  Én bevezetnék egy változót, amivel jelölném a találatot.
  A ciklus elején True-ra állítom. Ha van már olyan munkalap, akkor jön a kérdés, ha létre kell hozni az új munkalapot, akkor marad True, ha nem, akkor False-ra állítom. A vizsgálat után kilépek a ciklusból. A ciklus után ha True a jelölő, akkor létrehozzuk a munkalapot, ha False, akkor nem kell létrehozni.
  Üdv.

• #50007 Fferi50 Topikgazda istvankeresz #50004

  Új Válasz 2022-11-23 15:06:20 #50007

  Ú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 istvankeresz #50004 üzenetére

  Szia!
  Miért kell bezárni a fájlt egy új munkalap hozzáadása után?
  Üdv.

• #50005 andreas49 senior tag istvankeresz #50004

  Új Válasz 2022-11-23 14:34:13 #50005

  Ú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

  

  andreas49

  senior tag

  válasz istvankeresz #50004 üzenetére

  Ezt valószínűleg nem nekem akartad címezni, hanem Ferinek

• #49975 Fferi50 Topikgazda istvankeresz #49974

  Új Válasz 2022-11-17 10:53:05 #49975

  Ú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 istvankeresz #49974 üzenetére

  Szia!
  "az első igaz feltételhez kapcsolódó értéket másolja át és nem a második körben igaz feltételhez kapcsolódóét."
  Természetesen, hiszen fixen megadtad, hogy mely cellákból másolja át az értékeket:
  "ThisWorkbook.Sheets(ws.Name).Range("A2") stb"
  Helyesen szerintem:
  ThisWorkbook.Sheets(ws.Name).Range("A" & cell.Row").Value
  Megjegyzés: én kiírnám a Value-t mindenhova, mert bár alapértelmezett, adódhat olyan eset, amikor nem egyértelmű, hogy cella értékére van szükség vagy magára a cellára.
  Üdv.

• #49958 Fferi50 Topikgazda istvankeresz #49957

  Új Válasz 2022-11-16 09:14:11 #49958

  Ú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 istvankeresz #49957 üzenetére

  Szia!
  Vannak nem látható karakterek az adott oszlop egy cellájában. Megnézheted hol található, ha a munkalapon állva F5 majd irányított - utolsó cella.
  A tényleges adattartalomtól lefelé ki kell törölni az összes sort/oszlopot, akkor áll helyre.
  Ha folyamatos az adatok beírása az oszlopban - vagyis nincs üres cella az adatok között, akkor használható a Range("E1").End(xlDown).Row +1 is az első üres cella meghatározására. Figyelj arra, csak akkor használható a fenti forma ha az oszlop első 2 cellájában van érték, különben hibát fog jelezni, mert a munkalap utolsó során túl akar lépni.
  Amíg nincs adat az első két cellában, akkor direktben meg kell adni az 1. ill. 2. sort.
  Üdv.

• #49957 istvankeresz aktív tag istvankeresz #49956

  Új Válasz 2022-11-16 08:50:40 #49957

  Ú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

  

  istvankeresz

  aktív tag

  válasz istvankeresz #49956 üzenetére

  Bocs a sok hozzászólásért. Egy restart megoldotta.

  Szerk.:
  Azaz mégsem. Második futtatásra az lr már 109-es sorral kezdte. Pedig a 4-es sorral kellett volna folytatnia az E oszlopban, mivel a Az E1-től E3-ig másolt be értéket.

• #49956 istvankeresz aktív tag istvankeresz #49955

  Új Válasz 2022-11-16 08:39:59 #49956

  Ú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

  

  istvankeresz

  aktív tag

  válasz istvankeresz #49955 üzenetére

  Müködik, viszont az lr egy nagyon nagy értéket kap, így a 1010185 sornál kezdi a beírást. Ez mért lehet? Honnan vesz egy ekkora értéket?

  Így néz ki most:

  Dim cell As Range
Dim ws As Worksheet
Dim lr As Long

  lr = Sheets(6).Range("E" & Rows.Count).End(xlUp).Row + 1
    For Each ws In ThisWorkbook.Worksheets
       For Each cell In Sheets(ws.Name).Range("K2:K6")
                If cell.Value Like "2022.01*" Then
                    Sheets(6).Range("E" & lr) = cell.Value: lr = lr + 1
                    MsgBox (ws.Name & " " & cell.Value & " " & lr)
                End If
            ' MsgBox (ws.Name & " " & cell.Value)
        Next cell
    Next ws

• #49948 Fferi50 Topikgazda istvankeresz #49946

  Új Válasz 2022-11-15 15:52:08 #49948

  Ú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 istvankeresz #49946 üzenetére

  Szia!
  Ezt a sort a for ciklus elé érdemes betenni a kezdő sor számának meghatározására. A másolás viszont akkor így néz ki:
  Sheets(6).Range("E" & lr) = cell.Value :lr=lr+1 ' másol majd növeli a sor számát.
  Üdv.

• #49944 Fferi50 Topikgazda istvankeresz #49939

  Új Válasz 2022-11-15 15:05:40 #49944

  Ú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 istvankeresz #49939 üzenetére

  Szia!
  Használhatod a Like operátort ebben az esetben:
  Cells(1,1).Value Like "1234.56*" True értéket ad, ha a cella értéke a beírt karakter sorozattal kezdődik, ellenkező esetben False az érték.
  Vigyázz, a számok összehasonlításánál is a Like operátor utáni résznek szövegnek kell lenni és nem tizedespont hanem a magyar szabályok szerint tizedesvessző kell bele!
  Üdv.

• #49934 Fferi50 Topikgazda istvankeresz #49933

  Új Válasz 2022-11-14 17:30:43 #49934

  Ú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 istvankeresz #49933 üzenetére

  Szia!
  Az elveket mutatnám, amit hozzá kell adaptálnod a saját feladatodhoz:
  Set ujws=Workbooks("uj").Sheets(1)
For Each ws in Worksheets
For Each rng In ws.UsedRange.Columns("A").Cells
If rng.Value=x Then
ujws.Cells(Cells(ujws.Rows.Count,1).End(xlUp).Row+1,"A").Value=rng.Value
'ha nem lehet több érték akkor Exit For
End If
Next
Next
  Az "uj" munkafüzetet létre kell hoznod előtte.
  A feltételt az If-fel kezdődő sorban kell megadni, itt egy szimpla egyenlőséget tételeztem fel.
  Az értéket mindig az A oszlop következő üres cellájába másolja.
  Üdv.

• #49916 lappy őstag istvankeresz #49915

  Új Válasz 2022-11-11 13:40:24 #49916

  Ú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 istvankeresz #49915 üzenetére

  =HA(C31="SZ";I30-H31;HA(ÜRES(C31);" ";I30))
  ha jól értem mit is akarsz ezt kell I31 be beírni majd lehúzni

• #49907 Fferi50 Topikgazda istvankeresz #49906

  Új Válasz 2022-11-10 13:39:20 #49907

  Ú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 istvankeresz #49906 üzenetére

  Szia!
  A Workbooks.Add sor felesleges. A Sheets(...).Copy magától létrehozza az új munkafüzetet.
  Üdv.

• #49904 Fferi50 Topikgazda istvankeresz #49903

  Új Válasz 2022-11-10 13:13:37 #49904

  Ú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 istvankeresz #49903 üzenetére

  Szia!
  Melyik sornál?
  Megmutatnád a makrót, ami ezt okozza?
  Üdv.

• #49902 Fferi50 Topikgazda istvankeresz #49901

  Új Válasz 2022-11-10 12:52:21 #49902

  Ú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 istvankeresz #49901 üzenetére

  Szia!
  Akkor kipróbálod?
  Üdv.

• #49900 Fferi50 Topikgazda istvankeresz #49897

  Új Válasz 2022-11-10 12:25:12 #49900

  Ú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 istvankeresz #49897 üzenetére

  Szia!
  Szerintem ennyi elég a másolás - új munkafüzet létrehozásához:
  Sheets("Nyilvantartolap_TEMPLATE").Copy
  Ez egy új munkafüzetbe teszi át ezt az egy munkalapot. Utána ez a munkafüzet lesz aktív, tehát el kell döntened mi legyen a neve, hova mented stb.
  Ebben az új munkafüzetben nem lesznek benne a makrók - kivéve, ha a másolt munkalapnak van kódlapja, mert azt viszont átviszi.
  Az új munkafüzet bezárása után az eredeti munkafüzet marad aktív.
  Ha azt szeretnéd, hogy csak az új munkafüzet maradjon nyitva, akkor ezt a sort kell még betenni a fenti sor után:
  Thisworkbook.Close False
  Ebben az esetben csak az új munkafüzet marad nyitva.
  Üdv.

• #49898 lappy őstag istvankeresz #49897

  Új Válasz 2022-11-10 12:14:51 #49898

  Ú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 istvankeresz #49897 üzenetére

  ebbe sok minden kell

• #49868 Fferi50 Topikgazda istvankeresz #49867

  Új Válasz 2022-11-07 13:52:42 #49868

  Ú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 istvankeresz #49867 üzenetére

  Szia!
  Lelked rajta. De a textboxba beírt érték mindig szöveg lesz és ellenőrizni kell, hogy megfelelő-e dátumnak - formátumtól függetlenül. Ne ringasd magad álmokba, a felhasználók sajnos gyakran esnek abba a hibába, hogy saját szakállukra írnak be adatokat - mindegy, milyen utasítást látnak alatta vagy akár a felhasználói kézikönyvben. Ha hibátlan adatokkal szeretnél dolgozni, akkor bizony folyamatosan ellenőrizned kell az adatbevitelt. Erre több lehetőség is van, de szerintem valamelyiket mindenképp választanod kell. Egyébként megfelelő formátumú szövegből bármikor tudsz dátumot "varázsolni", a megfelelő formátum a fontos.
  Üdv.

• #49866 Fferi50 Topikgazda istvankeresz #49864

  Új Válasz 2022-11-07 10:32:02 #49866

  Ú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 istvankeresz #49864 üzenetére

  Szia!
  Esetleg 3 Combobox (Év, hónap, nap), ahol meghatározhatod a kiválasztási lehetőségeket (pl. a középsőben a hónapok 1-12 vagy jan-dec, a napoknál pedig a hónaptól függően 28-29-30-31).
  Üdv.

• #49865 andreas49 senior tag istvankeresz #49864

  Új Válasz 2022-11-07 10:12:17 #49865

  Ú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

  

  andreas49

  senior tag

  válasz istvankeresz #49864 üzenetére

  Esetleg ez?
  [link]

• #49863 Delila_1 veterán istvankeresz #49862

  Új Válasz 2022-11-07 09:15:50 #49863

  Ú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 istvankeresz #49862 üzenetére

  Nézz el ide.

• #49846 Delila_1 veterán istvankeresz #49845

  Új Válasz 2022-11-04 10:21:36 #49846

  Ú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 istvankeresz #49845 üzenetére

  Szívesen.

• #49844 Delila_1 veterán istvankeresz #49843

  Új Válasz 2022-11-04 10:05:52 #49844

  Ú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 istvankeresz #49843 üzenetére

  Private Sub CommandButton1_Click()
Dim usor As Long
'Itt annak az oszlopnak a betűjelét add meg, amelyikben biztosan ki van töltve az utolsó sorig minden cella
usor = Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets(ComboBox1.Value).Cells(usor, "A") = TextBox1.Value
Sheets(ComboBox1.Value).Cells(usor, "B") = ComboBox1.Value
End Sub

  Az usor képletének jelentése:
  A lapon az A oszlop utolsó celláján állva (Rows.Count) mintha Ctrl+fel nyilat nyomnál, ami az utolsó kitöltött sorra ugrik, ehhez adsz 1-et, hogy az első üres cella sorszámát kapd meg.

• #49842 Delila_1 veterán istvankeresz #49841

  Új Válasz 2022-11-04 09:44:03 #49842

  Ú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 istvankeresz #49841 üzenetére

  Ha nem fontos a lapra lépni, egy cella módosítását 1 lépésben is elintézheted, pl. egy nyomógombhoz rendelve.

  Private Sub CommandButton1_Click()
Sheets(ComboBox1.Value).Cells(3, 2) = "asdf"
End Sub

• #49840 Delila_1 veterán istvankeresz #49839

  Új Válasz 2022-11-04 08:45:22 #49840

  Ú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 istvankeresz #49839 üzenetére

  A ComboBox change eseményébe kell tenned a lapra ugrást.

  Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
'Cells(5, 1) = "asdf"
End Sub

• #49316 Delila_1 veterán istvankeresz #49314

  Új Válasz 2022-07-07 13:46:43 #49316

  Ú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 istvankeresz #49314 üzenetére

  A C2 cella képlete legyen =HA(SZÁM(A2);B1-A2;B1)

• #49315 lappy őstag istvankeresz #49314

  Új Válasz 2022-07-07 12:35:14 #49315

  Ú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 istvankeresz #49314 üzenetére

  ha üres az A akkor ne csináljon semmit különben a képleted

• #49302 Fferi50 Topikgazda istvankeresz #49301

  Új Válasz 2022-07-06 18:45:33 #49302

  Ú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 istvankeresz #49301 üzenetére

  Szia!
  "Megpróbálom azt, hogy a segédoszlop celláiba a januári dátumokhoz 1-t, februári dátumokhoz 2-t párosítok és így tovább"
  A HÓNAP függvény pontosan ezt adja meg neked.
  Üdv.

• #49299 Delila_1 veterán istvankeresz #49294

  Új Válasz 2022-07-06 15:57:59 #49299

  Ú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 istvankeresz #49294 üzenetére

  A fejlécbe tegyél autoszűrőt, ezzel bármikor szűrheted az adataidat tetszőleges hónap szerint.

• #49296 Fferi50 Topikgazda istvankeresz #49294

  Új Válasz 2022-07-06 15:11:31 #49296

  Ú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 istvankeresz #49294 üzenetére

  Szia!
  Szerintem a dátumokat tároló munkalapokra kell egy segédoszlop, ami a hónapot tartalmazza. (pl =HÓNAP(A2))
  A segédoszlop alapján az alkalmas keresőfüggvény (XKERES, avagy FKERES -INDEX páros) alapján meg tudod oldani a feladatot.
  Üdv.

• #49280 Delila_1 veterán istvankeresz #49279

  Új Válasz 2022-07-06 08:53:25 #49280

  Ú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 istvankeresz #49279 üzenetére

  Szívesen.

• #49278 Delila_1 veterán istvankeresz #49277

  Új Válasz 2022-07-06 07:49:56 #49278

  Ú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 istvankeresz #49277 üzenetére

  A formátum jó, a képlet
  =MA()-HÓNAP(MA()-1)

• #49272 Fferi50 Topikgazda istvankeresz #49271

  Új Válasz 2022-07-05 13:16:01 #49272

  Ú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 istvankeresz #49271 üzenetére

  Szia!
  Cellán állva - jobb egérgomb - cella formázás - szám - egyéni : "Miskolc, " éééé.hh.nn
  Vagy: A cellában a képlet:
  ="Miskolc, " & SZÖVEG(MA();"éééé.hh.nn")
  Üdv.

• #49264 Mutt senior tag istvankeresz #49263

  Új Válasz 2022-07-04 19:35:38 #49264

  Ú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 istvankeresz #49263 üzenetére

  Szia,

  Ha Office2019-ed vagy Microsoft365-öd van akkor inkább az XKERES függvényt tudod használni, amely az FKERES újabb változata. Előnye, hogy tartományt (több cellát a sorból) tud visszaadni, míg az FKERES csak tömbfüggvényel tud egyszerre több értéket visszaadni.

  üdv

• #49262 detroitrw addikt istvankeresz #49261

  Új Válasz 2022-07-04 15:23:33 #49262

  Ú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

  

  detroitrw

  addikt

  válasz istvankeresz #49261 üzenetére

  Pedig az fkeres jó lesz, ahogyan azt lappy ajánlotta:
  Második lapfülön:
  C3:
  =FKERES(B3;egyes lapfül!$B$3:$D$5;2;0)

  D3:
  =FKERES(B3;egyes lapfül!$B$3:$D$5;3;0)

• #49260 lappy őstag istvankeresz #49259

  Új Válasz 2022-07-04 14:23:13 #49260

  Ú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 istvankeresz #49259 üzenetére

  fkeres függvény
  az adattábla esetén külön oszlopban a szám, a gyümölcs, a szín
  és a függvényben a számra keresel majd a 2. és a 3. oszlop az eredmény

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