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

• #39065 Mutt senior tag thomas50.000 #39062

  Új Válasz 2018-09-06 08:57:25 #39065

  Ú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 thomas50.000 #39062 üzenetére

  Szia,

  "...whatsmycolor függvény sajnos nem frissíti önmagát...."

  A tippem azt lett volna, hogy elég egy Application.Volatile parancsot tenni az UDF-be, de az Excel-ben a cella szinének megváltozásakor nincs esemény indítás, azért ez sem megoldás.

  A legjobb megoldás, hogy azon munkalap selectionchange eseményéhez, ahol használod a függvényt rendelsz egy Application.CalculateFull parancsot.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CalculateFull
End Sub

  Ennek a hátránya ugyebár, hogy MINDEN értéket újraszámol a munkalapon ami lassabbá teszi a műkődést.

  üdv

• #32914 Delila_1 veterán thomas50.000 #32913

  Új Válasz 2016-10-09 15:51:29 #32914

  Ú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 thomas50.000 #32913 üzenetére

  Nincs mit.

• #32908 Delila_1 veterán thomas50.000 #32902

  Új Válasz 2016-10-09 07:29:29 #32908

  Ú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 thomas50.000 #32902 üzenetére

  Az End With sor fölé vidd be:

  .Width = 22.67717

• #32805 Delila_1 veterán thomas50.000 #32804

  Új Válasz 2016-09-29 14:19:56 #32805

  Ú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 thomas50.000 #32804 üzenetére

  A másik fórumon, ahol feltetted a kérdést, válaszoltam.

• #32560 Fferi50 Topikgazda thomas50.000 #32557

  Új Válasz 2016-09-02 11:26:45 #32560

  Ú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 thomas50.000 #32557 üzenetére

  Szia!

  A formátumkód: #0":"# helyett: #0":"0

  A # csak akkor ír számjegyet, ha nem 0 az érték, a 0 minden esetben megjelenik,

  Üdv.

• #32439 Fferi50 Topikgazda thomas50.000 #32437

  Új Válasz 2016-08-22 16:40:25 #32439

  Ú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 thomas50.000 #32437 üzenetére

  Szia!

  Egyezésnél ilyen lehetőség nincs, viszont használlhatod a SZÖVEG.KERES vagy SZÖVEG.TALÁL függvényt szerintem, ahol van joker karakter lehetőség is.

  Üdv.

• #32438 lappy őstag thomas50.000 #32437

  Új Válasz 2016-08-22 16:35:41 #32438

  Ú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 thomas50.000 #32437 üzenetére

  =HA(DARABTELI(C3:C5;"*ara*")>0;1;0) foglald egy ha fgv-be és ha a darabteli nagyobb min 0 akkor színes ha nem akkor marad fehér

• #32424 Delila_1 veterán thomas50.000 #32423

  Új Válasz 2016-08-21 17:41:43 #32424

  Ú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 thomas50.000 #32423 üzenetére

  Tedd azt az ikont a gyorselérési eszköztárra. Ikonon jobb klikkre gyorsmenüt kapsz, ahol egy kattintással átmásolhatod.

• #32422 Delila_1 veterán thomas50.000 #32421

  Új Válasz 2016-08-21 17:23:30 #32422

  Ú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 thomas50.000 #32421 üzenetére

  Készítesz egy sablon füzeted a saját formátumaiddal. Innen másolod a formátumot arra a lapra (tartományra), ahova letöltötted a webes adatokat.

• #32420 Delila_1 veterán thomas50.000 #32419

  Új Válasz 2016-08-21 16:14:30 #32420

  Ú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 thomas50.000 #32419 üzenetére

  Selection.PasteSpecial Paste:=xlValues

• #32418 Delila_1 veterán thomas50.000 #32417

  Új Válasz 2016-08-21 16:02:29 #32418

  Ú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 thomas50.000 #32417 üzenetére

  Az alkalmazása úgy történik, hogy kijelölöd a formázott területet, Ctrl+c-vel másolod, kijelölöd azt a területet, ahova a formátumot szeretnéd beilleszteni, és indítod a makrót.

  Az utolsó lépés helyett jó a bill. kombináció, ha adtál a makrónak olyant.

• #32416 Delila_1 veterán thomas50.000 #32415

  Új Válasz 2016-08-21 15:41:32 #32416

  Ú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 thomas50.000 #32415 üzenetére

  Kijelölöd a céltartománynak nevezett területet, felveszed az ecsetet, és végighúzod azon a tartományon, amit az előbbivel egyező formátumban szeretnél látni.

  Vagy

  Sub Formatum()
Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub

• #32413 lappy őstag thomas50.000 #32412

  Új Válasz 2016-08-21 15:23:49 #32413

  Ú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 thomas50.000 #32412 üzenetére

  Itt a megoldás

• #31016 Delila_1 veterán thomas50.000 #31015

  Új Válasz 2016-03-15 10:04:36 #31016

  Ú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 thomas50.000 #31015 üzenetére

  Örülök neki, szívesen.

• #31009 Delila_1 veterán thomas50.000 #31008

  Új Válasz 2016-03-15 07:08:00 #31009

  Ú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 thomas50.000 #31008 üzenetére

  Valószínűleg jó magasak a sorok, ahova a képeket be akarod illeszteni. A sormagassághoz igazítottam a képek magasságát.

  A makró lefutása után az egyik képet állítsd be a kívánt méretre, majd nézd meg, mennyi a magassága.
  A 3 With–End With között a

  .Height = Rows(sor).Height

  sorban az egyenlőségjel jobb oldalára ezt az értéket írd be a mostani helyett.

  Érdemes még a makró elejére beírni a következő sort:

  ActiveSheet.DrawingObjects.Select

  ez törli az előző képeket.

• #31003 Delila_1 veterán thomas50.000 #31002

  Új Válasz 2016-03-14 13:44:40 #31003

  Ú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 thomas50.000 #31002 üzenetére

  Megoldható, ha a jelzett cellák (B4:B23, L4:L23, AF4:AF23) a képek nevével azonosak, csak a kiterjesztést kell hozzájuk venni. Ezt kell átírnod a csillagozott sorokban, ha nem jpg a kiterjesztés, na meg az útvonalat.

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long
  
  utvonal = "D:\Mappa\Almappa\" '***
  
  For sor = 4 To 23
  Kepneve = Cells(sor, "B") & ".jpg" '*****
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Top = Rows(sor).Top
  .Height = Rows(sor).Height
  .Left = Columns(2).Left + Columns(2).Width - .Width
  End With
  
  Kepneve = Cells(sor, "L") & ".jpg" '*****
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Top = Rows(sor).Top
  .Height = Rows(sor).Height
  .Left = Columns(12).Left + Columns(12).Width - .Width
  End With
  
  Kepneve = Cells(sor, "AF") & ".jpg" '*****
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Top = Rows(sor).Top
  .Height = Rows(sor).Height
  .Left = Columns(32).Left + Columns(32).Width - .Width
  End With
  Next
  End Sub

• #30815 Delila_1 veterán thomas50.000 #30814

  Új Válasz 2016-03-02 07:56:25 #30815

  Ú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 thomas50.000 #30814 üzenetére

  A másik fórumon, ahol először tetted fel a kérdést, ott a válasz.

• #30813 Grodd tag thomas50.000 #30812

  Új Válasz 2016-03-01 21:51:19 #30813

  Ú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

  

  Grodd

  tag

  válasz thomas50.000 #30812 üzenetére

  Alapból nem lehet (VBA nélkül), de van rá egy trükk:

  Állítsd be a vastag szegélyt alapértelmezettnek az egész kérdéses tartományra, és utána csinálj egy feltételes formázást, ami ezt eltávolítja ezt a vastag szegélyt az eredeti feltételed negáltját megadva feltételként.

• #26702 Delila_1 veterán thomas50.000 #26701

  Új Válasz 2015-04-26 14:25:40 #26702

  Ú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 thomas50.000 #26701 üzenetére

  Szívesen.

• #26700 Delila_1 veterán thomas50.000 #26699

  Új Válasz 2015-04-26 14:10:45 #26700

  Ú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 thomas50.000 #26699 üzenetére

  Sajnos a színezés az Excel számára nem jelent "esemény"-t, amire egy makró reagálhatna.

  Írd át a ciklus végét 100-ról annyira, ahány sort szándékozol kitölteni az A oszlopban.

• #26698 Delila_1 veterán thomas50.000 #26697

  Új Válasz 2015-04-26 13:48:31 #26698

  Ú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 thomas50.000 #26697 üzenetére

  Ez a makró az elsőtől a 100. sorig írja be a Nem szót a B-be.

  Sub Piros()
  Dim sor As Long
  
  For sor = 1 To 100
  If Cells(sor, "A").Interior.ColorIndex = 3 Then Cells(sor, "B") = "Nem"
  Next
  End Sub

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