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

• #8736 Delila_1 veterán mcll #8735

  Új Válasz 2010-11-28 19:34:52 #8736

  Ú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 mcll #8735 üzenetére

  Miért akarod makróval formázni a result.xls-t? Csináld meg gyalog, sokkal gyorsabb.

  Ha fejléc is lesz benne, akkor a sor_r=1 helyett sor_r=2 kell, vagy ha a címek 2 sort foglalnak le, sor_r=3. A 3 sor helyett beírt 1 sor néhány változót is fölöslegessé tett, inkább megint beteszem a lecsökkent forráskódot újra.

  Sub Lel()
  Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
  Dim nev
  
  Windows("ex2.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count
  sor_r = 2
  
  For sor = 1 To usor
  nev = Cells(sor, 2)
  Windows("ex1.xls").Activate
  Sheets(1).Select
  
  With Columns("B:B")
  Set talal = .Find(nev, LookIn:=xlValues)
  If talal Is Nothing Then
  Workbooks("ex2.xls").Sheets(1).Rows(sor).Copy Workbooks("result.xls").Sheets(1).Rows(sor_r)
  sor_r = sor_r + 1
  End If
  End With
  
  Windows("ex2.xls").Activate
  Next
  End Sub

  Ha az ex1.xls és az ex2.xls is tartalmaz címsort, a For sor=1 To usor is For sor=2 To usor-ra változik.

  Az elmúlt héten (vagy előtte) többen több helyet ajánlottunk a VB megismeréséhez, lapozz kicsit vissza.

• #8734 Delila_1 veterán mcll #8732

  Új Válasz 2010-11-28 18:27:17 #8734

  Ú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 mcll #8732 üzenetére

  Az If talal Is Nothing Then után lévő 3 sor helyett ezt írd be:

  Workbooks("ex2.xls").Sheets(1).Rows(sor).Copy Workbooks("result.xls").Sheets(1).Rows(sor_r)

  Remélem, ez 1 sorban látszik, a Copy után egy szóközzel következik a Workbooks.

• #8733 Delila_1 veterán mcll #8732

  Új Válasz 2010-11-28 18:21:27 #8733

  Ú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 mcll #8732 üzenetére

  

• #8731 Delila_1 veterán mcll #8730

  Új Válasz 2010-11-28 18:17:24 #8731

  Ú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 mcll #8730 üzenetére

  Az első oszlopot sorszámnak néztem.

  Sub Lel()
  Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
  Dim nev, adat1, adat2
  
  Windows("ex2.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count
  sor_r = 1
  
  For sor = 1 To usor
  nev = Cells(sor, 2): adat1 = Cells(sor, 1): adat2 = Cells(sor, 3)
  Windows("ex1.xls").Activate
  Sheets(1).Select
  
  With Columns("B:B")
  Set talal = .Find(nev, LookIn:=xlValues)
  If talal Is Nothing Then
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 1) = adat1
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 3) = adat2
  sor_r = sor_r + 1
  End If
  End With
  
  Windows("ex2.xls").Activate
  Next
  End Sub

• #8729 Delila_1 veterán mcll #8728

  Új Válasz 2010-11-28 18:11:00 #8729

  Ú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 mcll #8728 üzenetére

  KÉT oszlopot mondtál, mindjárt átalakítom.

• #8727 Delila_1 veterán mcll #8726

  Új Válasz 2010-11-28 18:03:53 #8727

  Ú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 mcll #8726 üzenetére

  Ennek örülök, szívesen.

• #8725 Delila_1 veterán mcll #8724

  Új Válasz 2010-11-28 17:57:19 #8725

  Ú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 mcll #8724 üzenetére

  Sub hianyzok()
  Dim talal As Variant, usor As Integer, sor As Integer, sor_r As Integer
  Dim nev As Variant, adat As Variant
  
  Windows("ex2.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count
  sor_r = 1
  
  For sor = 1 To usor
  nev = Cells(sor, 2): adat = Cells(sor, 1)
  Windows("ex1.xls").Activate
  Sheets(1).Select
  
  With Columns("B:B")
  Set talal = .Find(nev, LookIn:=xlValues)
  If talal Is Nothing Then
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 1) = adat
  Workbooks("result.xls").Sheets(1).Cells(sor_r, 2) = nev
  sor_r = sor_r + 1
  End If
  End With
  
  Windows("ex2.xls").Activate
  Next
  End Sub

• #8723 Delila_1 veterán a.t.t.i. #8721

  Új Válasz 2010-11-28 09:44:19 #8723

  Ú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 a.t.t.i. #8721 üzenetére

  Hol találtad meg?

• #8722 Delila_1 veterán a.t.t.i. #8721

  Új Válasz 2010-11-28 09:43:14 #8722

  Ú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 a.t.t.i. #8721 üzenetére

  A megjegyzésekben történő kereséshez itt egy makró.
  A makró első sorában megadott területen megvizsgálja a megjegyzések tartalmát, megkeresi bennük a megadott szöveget (keres="alma"), majd az O oszlopban egymás alatt felsorolja a találatok címét, mellettük a P oszlopban a megjegyzés teljes tartalmát.

  Sub Megjegyz()
  Columns("O:P").Select 'Itt változtass
  Selection.ClearContents
  
  Set ter = Range("A1:C10") 'itt változtass
  keres = InputBox("Mit keresel?") 'itt változtass
  sor = 1
  For Each CV In ter
  Set kom = Range(CV.Address).Comment 'aktuális cellához csatolt megjegyzés
  If Not kom Is Nothing Then 'ha van megjegyzés
  sz = kom.Text 'Megjegyzés szövege
  If InStr(sz, keres) Then
  Cells(sor, 15) = CV.Address 'itt változtass
  Cells(sor, 16) = sz 'itt változtass
  sor = sor + 1
  End If
  End If
  Next
  End Sub

  4 helyre írtam be, hogy "itt változtass".
  A másodikhoz a saját területedet írd, a 3. és 4. az O, ill. a P oszlopot jelöli ki (15 és 16) a megjegyzés cellájának, és szövegének beírásához. Az első helyen az előző beírásokat törlöm az O:P oszlopokban, vagyis csak akkor írd át, ha a 15 és 16 értéket módosítottad.

• #8719 Delila_1 veterán perfag #8717

  Új Válasz 2010-11-26 12:39:56 #8719

  Ú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 perfag #8717 üzenetére

  Még egyszerűbben, a K oszlop sorszámozását kihagyva:
  valamelyik üres oszlop első sorába =darabteli($a$1:$j$100;sor())
  Ezt kell lemásolni a 100. sorig.

  Bár nem baj, ha nem a sorazonosítóból kell kiolvasni az értéket.

• #8702 Delila_1 veterán kacsyx #8701

  Új Válasz 2010-11-23 11:45:47 #8702

  Ú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 kacsyx #8701 üzenetére

  Az egész lapot is kijelölheted egyszerre a formázáshoz a Ctrl+a bill. kombinációval.

• #8700 Delila_1 veterán kacsyx #8699

  Új Válasz 2010-11-23 11:42:21 #8700

  Ú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 kacsyx #8699 üzenetére

  Sajnos, a "soha semmit" nem oldható meg, de ha előre szöveg formátumúra állítod be a kérdéses oszlopot, a 3-5-2-t nem alakítja át.

• #8690 Delila_1 veterán Satchmo7 #8688

  Új Válasz 2010-11-20 18:43:53 #8690

  Ú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 Satchmo7 #8688 üzenetére

  A YouTube-on keress rá az excel macro címszóra.

• #8686 Delila_1 veterán Fire/SOUL/CD #8685

  Új Válasz 2010-11-20 08:08:36 #8686

  Ú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 Fire/SOUL/CD #8685 üzenetére

  Az 50 lap nyomtatását mindenképp ciklusba szervezném, akkor nem szükséges megfelezni a makrót.

• #8683 Delila_1 veterán iwu #8682

  Új Válasz 2010-11-19 07:52:00 #8683

  Ú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 iwu #8682 üzenetére

  Szívesen.

• #8677 Delila_1 veterán Gimre #8676

  Új Válasz 2010-11-18 18:38:27 #8677

  Ú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 Gimre #8676 üzenetére

  Nézd meg a 8110-es kérdést, ugyanerről szól.

  Javaslom, hogy keresd meg levélben bnorci71-et, a kérdés feltevőjét, mert az ő összeállítása legjobb tudomásom szerint már komplett.

• #8674 Delila_1 veterán iwu #8672

  Új Válasz 2010-11-18 12:18:54 #8674

  Ú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 iwu #8672 üzenetére

  Az enyémnél az utolsó Next elé a
  Columns("A:B").AutoFit
  Columns("A:B").HorizontalAlignment = xlLeft
  sort kell beszúrni.

• #8667 Delila_1 veterán iwu #8661

  Új Válasz 2010-11-17 19:33:30 #8667

  Ú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 iwu #8661 üzenetére

  Régen leveleztünk, biztos a régi címemmel próbálkoztál. Inkább beírom ide a kódot. A füzetet, amiben most 1 lapon vannak az adatok, Eredeti.xls-nek neveztem el, az újat, amit a makró hoz létre, UjFuzet.xls névvel illettem.
  Az útvonalat az első sorban írd át.

  Sub SokLap()
  Const utvonal As String = "F:\Eadat\"
  Dim lapsz As Integer, lap As Integer
  Dim lapnev As String
  
  lapsz = Range("A" & Rows.Count).End(xlUp).Row
  Application.SheetsInNewWorkbook = lapsz - 1
  
  Workbooks.Add
  ActiveWorkbook.SaveAs Filename:=utvonal & "UjFuzet.xls", _
  FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
  ReadOnlyRecommended:=False, CreateBackup:=False
  
  
  Windows("Eredeti.xls").Activate
  For lap = 2 To lapsz
  lapnev = Cells(lap, 1)
  Workbooks("UjFuzet.xls").Sheets(lap - 1).Name = lapnev
  Rows(1).EntireRow.Copy Workbooks("UjFuzet.xls").Sheets(lapnev).Rows(1)
  Rows(lap).EntireRow.Copy Workbooks("UjFuzet.xls").Sheets(lapnev).Rows(2)
  Next
  
  Windows("UjFuzet.xls").Activate
  For lap = 1 To lapsz - 1
  Sheets(lap).Select
  Range("A1:I2").Copy
  Range("A3").Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=True
  Rows("1:2").Select
  Selection.Delete Shift:=xlUp
  Range("A1").Select
  Next
  
  Application.SheetsInNewWorkbook = 3
  End Sub

• #8664 Delila_1 veterán Mike318 #8663

  Új Válasz 2010-11-17 18:32:45 #8664

  Ú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 Mike318 #8663 üzenetére

  Az End-nek mindig tartalmaznia kell, minek a végét jelöli. A Select Case vége End Select, mint ahogy párosan szerepel az If és End If, vagy a Sub és End Sub.

  Ha a példádban a subrutinból akarsz kilépni, akkor Exit Sub kell az End helyett.

• #8662 Delila_1 veterán iwu #8661

  Új Válasz 2010-11-17 14:57:46 #8662

  Ú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 iwu #8661 üzenetére

  Küldd el a füzetet, többre megyünk.

• #8660 Delila_1 veterán iwu #8659

  Új Válasz 2010-11-17 14:15:04 #8660

  Ú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 iwu #8659 üzenetére

  Tudunk, de ennél kicsit több információra van szükség.
  

• #8658 Delila_1 veterán Mike318 #8657

  Új Válasz 2010-11-17 14:09:30 #8658

  Ú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 Mike318 #8657 üzenetére

  Írd be ide a makrót, mert úgy látszik, senki sem akar vaktában lövöldözni.

• #8640 Delila_1 veterán rekid #8639

  Új Válasz 2010-11-15 15:16:23 #8640

  Ú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 rekid #8639 üzenetére

  Megválaszoltad a saját kérdésedet.Mi akadálya, hogy 3 új oszlopban növeld az értékeket, és azokat ábrázold?

• #8636 Delila_1 veterán lazlo8 #8635

  Új Válasz 2010-11-14 11:15:45 #8636

  Ú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 lazlo8 #8635 üzenetére

  Lásd http://prohardver.hu/tema/excel/hsz_8608-8608.html

• #8634 Delila_1 veterán kwd #8633

  Új Válasz 2010-11-13 14:55:48 #8634

  Ú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 kwd #8633 üzenetére

  Úgy vélem, hogy az átalakítandó celláid szöveg formátumú számjegyeket tartalmaznak. Egyszerűbben is átalakíthatod az egészet.
  Valahova egy üres cellába beírsz egy 1-est, másolod. Kijelölöd a kérdéses tartományt, jobb klikk, Irányított beillesztés, Szorzás. Az 1-esre már nincs szükség, törölheted. Ennyi.

• #8617 Delila_1 veterán Vizes Tomi #8616

  Új Válasz 2010-11-10 16:06:53 #8617

  Ú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 Vizes Tomi #8616 üzenetére

  Nincs mit.

• #8615 Delila_1 veterán Vizes Tomi #8613

  Új Válasz 2010-11-10 15:39:46 #8615

  Ú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 Vizes Tomi #8613 üzenetére

  Vegyél fel egy új oszlopot, ahova a HÓNAP függvény segítségével beíratod az A oszlop hónapjának a számát, és erre az oszlopra hivatkozz a SZUMHATÖBB-bel.

  Szóba jöhet még a SZOZRATÖSSZEG függvény is a megoldáshoz.

• #8608 Delila_1 veterán lazlo8 #8602

  Új Válasz 2010-11-09 08:31:40 #8608

  Ú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 lazlo8 #8602 üzenetére

  A 2-es kérdésre:

  Sub Utvonal()
  Dim Utvonal As String, Fajlnev As String
  
  Utvonal = InputBox("Mi legyen az útvonal?", "Útvonal kiválasztása", Default)
  Fajlnev = InputBox("Melyik fájlt nyissam meg?", "Fájlnév megadása", Default)
  Workbooks.Open Filename:=Utvonal & "\" & Fajlnev & ".xls"
  End Sub

  Fire

  Tényleg kimaradt a képernyőfrissítés letiltása , jó, hogy észrevetted.

• #8603 Delila_1 veterán medium84 #8596

  Új Válasz 2010-11-08 20:01:39 #8603

  Ú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 medium84 #8596 üzenetére

  Ezt a makrót abba a füzetbe másold be, ahol a 2 oszlopod van. Feltételeztem, hogy mindkét füzeted első lapján vannak az adataid. A makróban írd át a füzetek nevét (Elso, Masodik).

  Sub Megjelol()
  Dim sor As Integer, usor As Integer
  Dim serial, c
  
  sor = 2: usor = ActiveSheet.UsedRange.Rows.Count
  For sor = 2 To usor
  serial = Cells(sor, 1).Value
  Windows("Masodik.xls").Activate
  
  With Range("A:A")
  Set c = .Find(serial, LookIn:=xlValues, LookAt:=xlPart)
  If Not c Is Nothing Then
  Cells(c.Row, 1).Font.ColorIndex = 3
  Windows("Elso.xls").Activate
  Range(Cells(sor, 1), Cells(sor, 3)).Font.ColorIndex = 3
  Cells(sor, 2).FormulaR1C1 = "=VLOOKUP(RC[-1],[Masodik.xls]Munka1!C1:C2,2,0)"
  Cells(sor, 3).FormulaR1C1 = "=VLOOKUP(RC[-2],[Masodik.xls]Munka1!C1:C3,3,0)"
  End If
  End With
  Windows("Elso.xls").Activate
  Next
  Range("B:C").Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  Cells(1).Select
  
  Application.ScreenUpdating = True
  End Sub

• #8594 Delila_1 veterán Fire/SOUL/CD #8593

  Új Válasz 2010-11-07 09:07:15 #8594

  Ú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 Fire/SOUL/CD #8593 üzenetére

  Köszönöm. A topic pangott, ill. mire észrevettem egy kérdést, már válaszoltatok is.

• #8591 Delila_1 veterán pentium4 #8589

  Új Válasz 2010-11-07 08:47:44 #8591

  Ú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 pentium4 #8589 üzenetére

  2003-as verzióban: állj a rögzíteni kívánt oszlop mögötti, és a rögzítendő sor alatti első cellába, Nézet/Ablaktábla rögzítése.

  A rögzítés után a Ctrl+Home erre a cellára állítja a fókuszt.
  Megszüntetés: Ctrl+Home billentyűkkel erre a cellára állsz, Nézet/Ablaktábla feloldása.

• #8548 Delila_1 veterán Pá #8547

  Új Válasz 2010-10-29 08:25:22 #8548

  Ú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 Pá #8547 üzenetére

  Ulrik cellaformátuma úgy írja ki az értékeket, ahogy szeretnéd.
  A cellaformázásnál az Egyéni kategóriában a Formátumkódhoz másold be ahhoz a cellához, amelyikbe az 1440-nel való osztást vitted be:
  n "nap," ó "óra," p "perc"

• #8544 Delila_1 veterán boecce #8543

  Új Válasz 2010-10-28 18:51:27 #8544

  Ú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 boecce #8543 üzenetére

  Ugyanígy tettem, míg egyszer véletlenül fel nem fedeztem az Egyebek gombot.
  

• #8542 Delila_1 veterán boecce #8541

  Új Válasz 2010-10-28 17:42:52 #8542

  Ú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 boecce #8541 üzenetére

  2003-as verziónál az Alt+F8-cal behívod a Makró menüt, kiválasztod a módosítandó makrót, és az Egyebek gomb segítségével előcsalod a bill. hozzárendelést.

  Szerk: megnéztem, ugyanez 2007-ben is igaz.

• #8538 Delila_1 veterán Robb202 #8536

  Új Válasz 2010-10-25 19:19:53 #8538

  Ú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 Robb202 #8536 üzenetére

  Makró és ComboBox nélkül:

  A kérdéses cellán állva Adatok/Adateszközök/Érvényesítés. Megengedve Lista, a Forráshoz eladva; raktáron; szállítás.

  Továbbra is a cellán állva Kezdőlap/Stílusok/Feltételes formázás/Cellakijelölési szabályok/Egyenlő. Ide beírod az eladva szót, hozzárendeled a megfelelő formátumot a legördülőből. Ugyanezen az úton megadod a másik két szóhoz is a kellő formátumot.

  Mód.:Ez 2007-re vonatkozik, valószínű, hogy nem változtattak ezen a lehetőségen a 2010-ben.

• #8520 Delila_1 veterán Pulsar #8519

  Új Válasz 2010-10-21 07:19:30 #8520

  Ú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 Pulsar #8519 üzenetére

  Az a másik cella lehetőleg másik lapon legyen, a példában a Munka2 lap A1 cellájában van.

  Sub MentésTxtbe()
  Application.DisplayAlerts = False
  
  utvonal = "D:\Adatok\2010\"
  FN = utvonal & Sheets("Munka2").Range("A1").Value
  ActiveWorkbook.SaveAs Filename:=FN, FileFormat:= _
  xlTextMSDOS, CreateBackup:=False
  
  Application.DisplayAlerts = True
  End Sub

  Az utvonal változóhoz add meg a saját mentési útvonaladat.

• #8518 Delila_1 veterán IReTrOI #8515

  Új Válasz 2010-10-20 13:31:28 #8518

  Ú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 IReTrOI #8515 üzenetére

  Kellene az elrendezésről egy kép, mert első olvasásra úgy tűnik, 2 adatot akarsz 1-1 oszlophoz rendelni, a félévek számát, és a képzés típusát. Ezeket össze lehet vonni két FKERES függvénnyel.

• #8516 Delila_1 veterán Fire/SOUL/CD #8514

  Új Válasz 2010-10-20 13:25:31 #8516

  Ú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 Fire/SOUL/CD #8514 üzenetére

  Benne maradt az eredeti
  =HA(HIBÁS(FKERES(B1;D:D;1;0));"-";FKERES(B1;D:E;2;0))

• #8513 Delila_1 veterán Fire/SOUL/CD #8512

  Új Válasz 2010-10-20 09:16:26 #8513

  Ú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 Fire/SOUL/CD #8512 üzenetére

  Ez most egy akadémista vita, mert rTyler a B oszlop tagjaihoz szeretné rendelni a címe(ke)t.
  Ha csak az érdekelné, hogy a D tagjai szerepelnek-e a B-ben, egy feltételes formázással, képletek nélkül megtehetné.

• #8511 Delila_1 veterán Fire/SOUL/CD #8510

  Új Válasz 2010-10-20 08:51:27 #8511

  Ú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 Fire/SOUL/CD #8510 üzenetére

  Látszana is, ha oda is lehúztam volna a képletet...

  Ezzel a képlettel megkapod a C-ben az E oszlop tartalmát. Ennek szerintem nem sok értelme van. A kérdező a B oszlopban lévő névhez tartozó címet szeretné látni.
  Most csak megdupláztad az E tartalmát.

• #8509 Delila_1 veterán Fire/SOUL/CD #8508

  Új Válasz 2010-10-20 08:32:36 #8509

  Ú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 Fire/SOUL/CD #8508 üzenetére

  Ímé az eredmény:

  

• #8500 Delila_1 veterán szab.tam #8499

  Új Válasz 2010-10-19 18:34:49 #8500

  Ú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 szab.tam #8499 üzenetére

  Nagyon szívesen. Ezt a nagy segítséget bármikor elvárhatod tőlem.

• #8498 Delila_1 veterán szab.tam #8497

  Új Válasz 2010-10-19 18:31:20 #8498

  Ú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 szab.tam #8497 üzenetére

  Várd meg Fire-t, ő a 2007 nagy szerelmese.

• #8496 Delila_1 veterán szab.tam #8495

  Új Válasz 2010-10-19 18:23:00 #8496

  Ú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 szab.tam #8495 üzenetére

  Nézet/Ablak/Mozaik

• #8494 Delila_1 veterán rTyler #8493

  Új Válasz 2010-10-19 18:20:12 #8494

  Ú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 rTyler #8493 üzenetére

  

• #8492 Delila_1 veterán rTyler #8490

  Új Válasz 2010-10-19 18:15:05 #8492

  Ú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 rTyler #8490 üzenetére

  

• #8491 Delila_1 veterán rTyler #8490

  Új Válasz 2010-10-19 18:12:19 #8491

  Ú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 rTyler #8490 üzenetére

  A megoldás, hogy az I1-ben hozza a B1-es ember első e-mail címét, J1-ben a másodikat, K1-ben a harmadikat, stb., ameddig jobbra másolod a képletet. Akinek nincs 2., 3. címe, ott üresen hagyja a cellát.
  Ezeket a képleteket együtt lemásolod addig a sorig, ameddig a B oszlopodban tartanak a nevek.

• #8489 Delila_1 veterán

  Új Válasz 2010-10-19 18:00:53 #8489

  Ú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

  Hibakezeléssel az I1 képlete
  =HA(HIBÁS(FKERES($B1&1;$E:$E;1;0));"";FKERES($B1&1;$E:$F;2;0))

  Ezt kell jobbra másolni, és a félkövér, dőlt 1-et oszloponként növelni 1-gyel.

• #8488 Delila_1 veterán rTyler #8485

  Új Válasz 2010-10-19 17:53:01 #8488

  Ú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 rTyler #8485 üzenetére

  A darabteli függvény angol megfelelője a countif.

• #8487 Delila_1 veterán Fire/SOUL/CD #8486

  Új Válasz 2010-10-19 17:47:13 #8487

  Ú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 Fire/SOUL/CD #8486 üzenetére

  Tévedsz! Makró nélkül oldottam meg, de csakis azért, hogy ellenkezzek.

  A D után beszúrtam egy oszlopot, aminek a képlete (D1-é):
  =D1&DARABTELI(D$1:D1;D1)

  Az I1 képlete: =FKERES($B1&1;$E:$F;2;0)
  J1: =FKERES($B1&2;$E:$F;2;0)
  K1: =FKERES($B1&3;$E:$F;2;0)

  Persze ezen még lehet finomítani a hibakezeléssel.

• #8482 Delila_1 veterán Fire/SOUL/CD #8479

  Új Válasz 2010-10-19 17:28:35 #8482

  Ú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 Fire/SOUL/CD #8479 üzenetére

  Az autoszűrő helyett inkább kimutatást javasolnék.

• #8481 Delila_1 veterán rTyler #8480

  Új Válasz 2010-10-19 17:26:38 #8481

  Ú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 rTyler #8480 üzenetére

  Persze, az angol verzióban nem pontosvessző, hanem vessző kell a paraméterek közé.

• #8477 Delila_1 veterán rTyler #8476

  Új Válasz 2010-10-19 17:19:04 #8477

  Ú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 rTyler #8476 üzenetére

  =if(iserror(vlookup(B1;D:D;1;0));"-";vlookup(B1;D:E;2;0))

• #8475 Delila_1 veterán Fire/SOUL/CD #8474

  Új Válasz 2010-10-19 17:10:30 #8475

  Ú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 Fire/SOUL/CD #8474 üzenetére

  Majd megtudjuk a válaszból.

• #8473 Delila_1 veterán Delila_1 #8471

  Új Válasz 2010-10-19 17:04:08 #8473

  Ú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 Delila_1 #8471 üzenetére

  A vigyori fej helyett a képlet
  
  =HA(HIBÁS(FKERES(B1;D:D;1;0));"-";FKERES(B1;D:E;2;0))

• #8471 Delila_1 veterán rTyler #8470

  Új Válasz 2010-10-19 16:58:39 #8471

  Ú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 rTyler #8470 üzenetére

  A C1 cella képlete
  =HA(HIBÁS(FKERES(B1;D;1;0));"-";FKERES(B1;D:E;2;0))

  Ezt másold le a B oszlop adatai mellé.

• #8458 Delila_1 veterán m.zmrzlina #8455

  Új Válasz 2010-10-19 07:03:58 #8458

  Ú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 m.zmrzlina #8455 üzenetére

  Nézz utána a Public változóknak, amiről Perfag írt, vagy várj estig, míg újra gép közelébe kerülök.
  Addig biztosan megírja valaki, mit kell tenned.

• #8454 Delila_1 veterán perfag #8453

  Új Válasz 2010-10-18 17:56:05 #8454

  Ú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 perfag #8453 üzenetére

  Igen.

• #8452 Delila_1 veterán m.zmrzlina #8451

  Új Válasz 2010-10-18 17:38:28 #8452

  Ú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 m.zmrzlina #8451 üzenetére

  A változók értékét átadhatod egy másik szubrutinnak. Pl. ha az Első() szubrutin C változójának az értékével szeretnél dolgozni egy Második nevű szubrutinban, akkor az Első rutinodban
  Második C
  módon hívod meg. A Második paramétere legyen C, vagyis
  Sub Második(C)
  .
  .
  End Sub

  A Második End Sub-ja után a vezérlés visszajut a hívás helyét követő sorra.

• #8448 Delila_1 veterán m.zmrzlina #8446

  Új Válasz 2010-10-18 16:48:06 #8448

  Ú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 m.zmrzlina #8446 üzenetére

  Azt hiszem, félreértettelek. Címke alatt egy cella címzésére gondoltam.

  If valami then Go To Címke 'vagy Gosub Címke

  Címke:
  utasítások
  Return 'Gosub esetén, innen az if-et követő sorba ugrik vissza.

  Ezt azonos modulban kell elhelyezned.

• #8445 Delila_1 veterán samfishR #8442

  Új Válasz 2010-10-18 06:42:58 #8445

  Ú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 samfishR #8442 üzenetére

  Elég az első cellánál megadni a formátumot. Az 1 beírása után a Ctrl billentyű lenyomása mellett "húzd" le 40 hosszan, akkor automatikusan növeli a sorszámokat.

  Másik módszer, hogy a celláknak szöveg formátumot adsz, ezután írod be a 01-et, a másolásához nem kell segédbillentyűt használni. Ezeket szövegként értelmezi az Excel, nem lehet velük számolni.

• #8444 Delila_1 veterán samfishR #8442

  Új Válasz 2010-10-18 06:12:52 #8444

  Ú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 samfishR #8442 üzenetére

  A cellaformátumot az egyéni kategóriában így add meg: 0#

• #8443 Delila_1 veterán m.zmrzlina #8441

  Új Válasz 2010-10-18 06:11:47 #8443

  Ú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 m.zmrzlina #8441 üzenetére

  Application.Goto Reference:="nomorelines"

• #8438 Delila_1 veterán Oly #8437

  Új Válasz 2010-10-15 17:51:35 #8438

  Ú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 Oly #8437 üzenetére

  Az első kérdésre igen, a másodikra, az is egy megoldás.
  Már csak azt nem tudom, hol itt a ciklus?

• #8436 Delila_1 veterán Oly #8435

  Új Válasz 2010-10-15 17:36:43 #8436

  Ú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 Oly #8435 üzenetére

  if fizeto=false or postao=false then
  ....

  Akkor írsz üzenetet, mikor ezek nem igazak, ezt kell kihasználni.

• #8419 Delila_1 veterán m.zmrzlina #8418

  Új Válasz 2010-10-14 16:00:06 #8419

  Ú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 m.zmrzlina #8418 üzenetére

  Nem biztos, hogy erre gondoltál. Az A21, B21, és C21 cellák 0 és 255 közötti egész számot tartalmaznak. A makró az A22 cella hátterét színezi a fenti értékek szerint.

  Sub szín()
  Cells(22, 1).Interior.Color = RGB(Cells(21, 1), Cells(21, 2), Cells(21, 3))
  End Sub

• #8417 Delila_1 veterán basaharc502 #8416

  Új Válasz 2010-10-12 14:56:02 #8417

  Ú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 basaharc502 #8416 üzenetére

  Így:

  

• #8395 Delila_1 veterán xKacsax #8392

  Új Válasz 2010-10-08 18:23:46 #8395

  Ú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 xKacsax #8392 üzenetére

  Kilencszázkilencvenkilencmillió-kilencszázkilencvenkilencezer-kilencszázkilencvenkilenc-ig kiírja betűvel az összeget ez a függvény, amit nem én írtam, csak alkalmazom néhanapján.

  Function Szam_szoveg(szam As Long) As String
  Dim j1, j10, j10a, j100
  j1 = Array("", "egy", "kettő", "három", "négy", "öt", "hat", "hét", "nyolc", "kilenc")
  j10 = Array("", "tíz", "húsz", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
  j10a = Array("", "tizen", "huszon", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven")
  j100 = Array("száz", "", "ezer", "millió", "milliárd")
  betu = ""
  If szam = 0 Then
  Szam_szoveg = "Nulla"
  Exit Function
  End If
  s = Format(szam, "0")
  j = 1
  While s <> ""
  i = Len(s) - 2
  If i < 1 Then i = 1
  s2 = Mid(s, i, 3)
  s = Left(s, i - 1)
  s3 = ""
  If Len(s2) = 3 Then
  s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
  If Mid(s2, 1, 1) <> "0" Then s3 = s3 + j100(0)
  s2 = Right(s2, Len(s2) - 1)
  End If
  If Len(s2) = 2 Then
  If Mid(s2, 2, 1) = "0" Then
  s3 = s3 + j10(Asc(Mid(s2, 1, 1)) - 48)
  Else
  s3 = s3 + j10a(Asc(Mid(s2, 1, 1)) - 48)
  End If
  s2 = Right(s2, Len(s2) - 1)
  End If
  s3 = s3 + j1(Asc(Mid(s2, 1, 1)) - 48)
  If s3 <> "" Then s3 = s3 + j100(j)
  If (betu <> "") And (szam > 2000) And (s3 <> "") Then kot = "-" Else kot = ""
  betu = s3 + kot + betu
  j = j + 1
  Wend
  betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)
  Szam_szoveg = betu
  End Function

  Alkalmazása: a cellába =Szam_szoveg(A1) – ha a szám, amit betűvel akarsz kiíratni, az A1 cellában van.
  Azt is tudja, hogy kétezer alatt egybe kell írni az összegeket szöveggel, azon felül a hármas tagolás van érvényben. Állítólag már nem kell nagybetűvel kezdeni, akkor az utolsó előtti sort [betu = UCase(Left(betu, 1)) & Right(betu, Len(betu) - 1)] töröld ki, vagy tedd megjegyzésbe.

• #8390 Delila_1 veterán zsotesz81 #8389

  Új Válasz 2010-10-08 06:35:57 #8390

  Ú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 zsotesz81 #8389 üzenetére

  Szivi.

• #8388 Delila_1 veterán zsotesz81 #8387

  Új Válasz 2010-10-07 20:01:25 #8388

  Ú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 zsotesz81 #8387 üzenetére

  Egy ciklusban

  If Cells(sor, oszlop) = 0 Then Cells(sor, oszlop).NumberFormat = "General"

• #8384 Delila_1 veterán bandus #8381

  Új Válasz 2010-10-07 07:36:59 #8384

  Ú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 bandus #8381 üzenetére

  A minimum érték 37622 legyen, a maximum pedig attól függően, hogy 2010.júl.1-et, vagy 2010.júl. 31-et akarsz-e befejező dátumnak, 40360, vagy 40390.

  Az Excel a dátumokat (is) számként értelmezi, mégpedig úgy, hogy hány nap telt el 1900.01.01. óta az adott dátumig.

  A fenti értékeket úgy tudod meg legegyszerűbben, hogy a dátumot tartalmazó cella formátumát általánosra állítod.

• #8376 Delila_1 veterán fjanszi123 #8374

  Új Válasz 2010-10-06 15:49:34 #8376

  Ú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 fjanszi123 #8374 üzenetére

  Nézd meg ezt

  A Cellameretek makrót indítva megadhatod a kijelölt cella – cellák szélességét és magasságát mm-ben.

• #8371 Delila_1 veterán m.zmrzlina #8370

  Új Válasz 2010-10-05 11:13:07 #8371

  Ú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 m.zmrzlina #8370 üzenetére

  

• #8369 Delila_1 veterán m.zmrzlina #8365

  Új Válasz 2010-10-05 10:42:50 #8369

  Ú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 m.zmrzlina #8365 üzenetére

  Na még egy kép, mikor egyszerre is bekapcsolt állapotban vannak egyes lámpák.

  

  (Nem látszik, de ekkor az E oszlop van kijelölve)

• #8368 Delila_1 veterán m.zmrzlina #8365

  Új Válasz 2010-10-05 10:34:38 #8368

  Ú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 m.zmrzlina #8365 üzenetére

  Fire ötletével

  

  Szerk.: a karakterek színét is átírhatod. Alapban fehér, a cella "on" értékénél az aktuális szín legyen a feltételes formázásban.

• #8366 Delila_1 veterán m.zmrzlina #8365

  Új Válasz 2010-10-05 10:19:00 #8366

  Ú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 m.zmrzlina #8365 üzenetére

  Kijelölöd az oszlopot, pl. az ábra szeinti F-et, és egyszerre adod meg a feltételes formázást. Fontos, hogy a képletben ne $E$2, hanem $E2, vagy csak E2 szerepeljen.

• #8364 Delila_1 veterán m.zmrzlina #8363

  Új Válasz 2010-10-05 09:48:42 #8364

  Ú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 m.zmrzlina #8363 üzenetére

  Mindkét esethez a feltételes formázás:
  

• #8362 Delila_1 veterán m.zmrzlina #8361

  Új Válasz 2010-10-05 09:24:30 #8362

  Ú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 m.zmrzlina #8361 üzenetére

  Feltételes formázás. Olyan színű legyen a cella, mint amelyik lámpa a három közül éppen on állapotban van. Ennyi feltételt a régebbi verziókban is elő lehet állítani.
  Ez a színezett cella lehet az, amelyik az időpontot tartalmazza.

• #8333 Delila_1 veterán Oly #8331

  Új Válasz 2010-09-30 15:57:29 #8333

  Ú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 Oly #8331 üzenetére

  A RowSource tulajdonságnál, pl. A1:A20
  Megadhatod a legördülő sorok számát is a ListRows-ban a 8-as alapérték helyett mást beírva.

• #8330 Delila_1 veterán Fire/SOUL/CD #8329

  Új Válasz 2010-09-30 15:44:08 #8330

  Ú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 Fire/SOUL/CD #8329 üzenetére

  Azért dolgozott azzal, mert az első (?) válaszomban azt írtam.
  Szóval működik a text és a value nélkül is.

• #8328 Delila_1 veterán Fire/SOUL/CD #8327

  Új Válasz 2010-09-30 15:31:10 #8328

  Ú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 Fire/SOUL/CD #8327 üzenetére

  Anélkül is vidáman beírja az értékeket, szándékosan hagytam el.

• #8326 Delila_1 veterán sonar #8324

  Új Válasz 2010-09-30 15:25:32 #8326

  Ú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 sonar #8324 üzenetére

  Sokat találsz itt a fórumon, keress rá a target szóra.
  Ha nem sikerül összehoznod, írd meg, melyik cella értékét hova kell átmásolni a formátumával együtt.

• #8325 Delila_1 veterán Oly #8323

  Új Válasz 2010-09-30 15:22:48 #8325

  Ú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 Oly #8323 üzenetére

  Private Sub CommandButton1_Click()
  Application.Goto Reference:="bevitel"
  Selection = TextBox1 & " " & TextBox2
  End Sub

• #8322 Delila_1 veterán Oly #8321

  Új Válasz 2010-09-30 15:12:04 #8322

  Ú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 Oly #8321 üzenetére

  Igen.

• #8320 Delila_1 veterán Oly #8318

  Új Válasz 2010-09-30 15:03:40 #8320

  Ú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 Oly #8318 üzenetére

  A második kérdésedre:

  Private Sub CommandButton1_Click()
  Application.Goto Reference:="bevitel"
  Selection = TextBox1
  End Sub

  A TextBox1 értéke itt a "bevitel" névvel ellátott cellába kerül. Mint látod, a .Value elhagyható, az előbbi makróba sem szükséges.

• #8319 Delila_1 veterán Oly #8318

  Új Válasz 2010-09-30 14:54:42 #8319

  Ú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 Oly #8318 üzenetére

  Private Sub CommandButton1_Click()
  Sheets("Munka2").Cells(3, 1) = TextBox1.Value
  End Sub

  A Munka2 lap A3 cellájába beviszi a TextBox1 értékét.

• #8317 Delila_1 veterán sonar #8316

  Új Válasz 2010-09-30 14:45:38 #8317

  Ú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 sonar #8316 üzenetére

  Mi bajod a makróval? Egy eseményhez rendelt makró önállóan beviszi eredménnyel, formázással.

• #8314 Delila_1 veterán

  Új Válasz 2010-09-30 11:36:20 #8314

  Ú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

  Pentium4

  Az előzőhöz:

  Ha mind a 4 bolt oszlopában 0 érték szerepelne, #ÉRTÉK hibát ad a függvény. Ennek elkerülésére a Next után tegyél be egy új sort: On Error Resume Next, így 0 lesz a függvény kimenete.

• #8313 Delila_1 veterán pentium4 #8296

  Új Válasz 2010-09-30 11:16:14 #8313

  Ú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 pentium4 #8296 üzenetére

  Írtam rá egy függvényt.

  Function Minimum(sor As Integer) As Double
  Dim tomb(3), tomb_1(3)
  Dim b As Integer, s As Integer
  
  tomb(0) = Cells(sor, 7)
  tomb(1) = Cells(sor, 12)
  tomb(2) = Cells(sor, 17)
  tomb(3) = Cells(sor, 22)
  
  For b = 0 To 3
  If tomb(b) > 0 Then
  tomb_1(s) = tomb(b)
  s = s + 1
  End If
  Next
  Minimum = Application.Min(tomb_1(0), tomb_1(s - 1))
  End Function

  A szépséghibája, hogy egy üres oszlopba az adatok mellé be kell vinni az =SOR() függvényt, és a Minimum függvényben erre a cellára kell hivatkozni.
  Pl. ha a sor() függvények az AA oszlopban vannak, és a W5-ben akarod megtudni az 5. sor minimumát, akkor a W5-be ezt kell írnod: =minimum(AA5), vagy =minimum(5). Az utóbbinál az a baj, hogy a képlet lemásolásakor az 5-öt minden cellában át kellene írni az aktuális sor számára. Az előbbi képlet "lehúzható".
  Remélem, ezen valaki tud majd javítani. Ha nem, marad a SOR() függvény.

• #8312 Delila_1 veterán sonar #8297

  Új Válasz 2010-09-30 09:55:48 #8312

  Ú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 sonar #8297 üzenetére

  Nézd meg az irányított beillesztést, ott képletet, értéket, formátumot, stb-t választhatsz.

• #8295 Delila_1 veterán siti #8294

  Új Válasz 2010-09-29 09:46:47 #8295

  Ú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 siti #8294 üzenetére

  Szivi.

• #8293 Delila_1 veterán siti #8292

  Új Válasz 2010-09-29 07:02:39 #8293

  Ú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 siti #8292 üzenetére

  Kapcsold be az Eszözök/Bővítménykezelőben az Analysis kezdetű 2 bővítményt.

  Az előbbi makró egyetlen sorral:

  Sub dátum()
  Cells(Range("A3").End(xlDown).Row + 1, 1) = Date
  End Sub

• #8289 Delila_1 veterán siti #8288

  Új Válasz 2010-09-28 19:44:19 #8289

  Ú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 siti #8288 üzenetére

  Sub dátum()
  Dim sor As Integer
  sor = Range("A3").End(xlDown).Row + 1
  Cells(sor, 1) = Date
  End Sub

• #8271 Delila_1 veterán biker #8270

  Új Válasz 2010-09-24 20:15:34 #8271

  Ú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 biker #8270 üzenetére

  Szívesen.

• #8269 Delila_1 veterán bnorci71 #8252

  Új Válasz 2010-09-24 19:05:38 #8269

  Ú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 bnorci71 #8252 üzenetére

  Elküldtem a "nyilas" változatot e-mail-ben.

• #8266 Delila_1 veterán csferke #8261

  Új Válasz 2010-09-24 16:46:08 #8266

  Ú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 csferke #8261 üzenetére

  A cellára így hivatkozhatsz:
  Cells(sor,oszlop)

  A ciklussal, gondolom, a sorokon mész végig. Sornak a ciklusváltozódat írd be, az oszlopszámot meg fixen megadhatod.

  Cells(sor,oszlop)=Válasz

• #8260 Delila_1 veterán bnorci71 #8252

  Új Válasz 2010-09-24 07:09:24 #8260

  Ú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 bnorci71 #8252 üzenetére

  Eszembe jutott valami, de megint csak este tudom kipróbálni. Érdekes feladat, biztosan más is próbálkozik addig a megoldással.

  Hogy ne kelljen a lehetséges megoldóknak visszakeresni:
  Az A2:A14 tartományban focicsapatok nevei vannak. A teljes tartomány címsorral együtt A1:AI14, ami az AI oszlop értékei szerint van csökkenő sorrendbe rendezve. Az AI változik, emellé kellenének a nyilak az AJ, vagy AK oszlopba.

• #8259 Delila_1 veterán csferke #8258

  Új Válasz 2010-09-24 07:03:58 #8259

  Ú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 csferke #8258 üzenetére

  A ciklus belsejébe:
  Válasz=Inputbox("Kérem az új adatot","Inputbox címe", Default)
  (lehet jobban cifrázni)
  Utána a Válasz változóval kezdesz valamit.

• #8257 Delila_1 veterán biker #8256

  Új Válasz 2010-09-24 06:54:46 #8257

  Ú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 biker #8256 üzenetére

  Legegyszerűbben úgy tudod meg, hogy szöveg-, vagy szám formátumú-e az oszlop, hogy néhányat együtt kijelölsz, a státuszsorban megnézed az összeget. Szöveg formátum esetén ezt nem mutatja.
  Excelről írtam, az OO-t nem ismerem.

• #8254 Delila_1 veterán biker #8253

  Új Válasz 2010-09-24 06:48:09 #8254

  Ú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 biker #8253 üzenetére

  Ez azért van, mert bár szám külleműek az adataid, szöveg formátumúak. Körülményesen úgy tudnád átalakítani, hogy az egész tartományt szám formátumúra állítod, de egyenként le kellene enterezni utána mindet.
  Egyszerűbben is lehet, szorozd meg az adatokat 1-gyel. Excelben ennek a módja: beírsz egy cellába egy 1-est, másolod, kijelölöd a felszorzandó tartományt, jobb klikk, Irányított beillesztés, Szorzás.
  Figyelj arra, hogy mindegyik táblázatodban számként szerepeljenek az összehasonlítandó adatok.

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