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

• #41237 Nagyzoli27 kezdő Laciahegyrol #41235

  Új Válasz 2019-06-21 15:36:15 #41237

  Ú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

  

  Nagyzoli27

  kezdő

  válasz Laciahegyrol #41235 üzenetére

  Most már jó. Az volt a gond hogy nem szöveg volt a cella formátuma így egyesével rakta be a számokat amikor lehúztam, nem pedig 0 1 0 1...

• #41236 Nagyzoli27 kezdő Laciahegyrol #41235

  Új Válasz 2019-06-21 15:20:56 #41236

  Ú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

  

  Nagyzoli27

  kezdő

  válasz Laciahegyrol #41235 üzenetére

  Hozzáférés kell hozzá

• #41234 Nagyzoli27 kezdő Laciahegyrol #41233

  Új Válasz 2019-06-21 13:42:57 #41234

  Ú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

  

  Nagyzoli27

  kezdő

  válasz Laciahegyrol #41233 üzenetére

  De ha beszűröm 0-ra vagy 1-re akkor csak 1 sort látok.

• #41232 Nagyzoli27 kezdő Laciahegyrol #41231

  Új Válasz 2019-06-21 11:38:56 #41232

  Ú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

  

  Nagyzoli27

  kezdő

  válasz Laciahegyrol #41231 üzenetére

  Ez olyan mintha egyesével jelölném ki a sorokat.

• #40868 Fferi50 Topikgazda Laciahegyrol #40866

  Új Válasz 2019-04-23 12:10:04 #40868

  Ú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 Laciahegyrol #40866 üzenetére

  Szia!

  Szerintem magyar Windows és magyar Excel mellett kellene látnia a magyar ékezetes karaktereket.
  Tegyél fel elérhető helyre egy mintát a munkafüzetből, akkor meglátjuk, hogy nálunk is "rosszul" viselkedik-e.

  Üdv.
  Ps. Használd a programód vagy a konvertálatlan gombot az alsó sorban, hogy ne legyenek röhögő fejecskék.

• #40836 Fferi50 Topikgazda Laciahegyrol #40827

  Új Válasz 2019-04-17 22:30:35 #40836

  Ú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 Laciahegyrol #40827 üzenetére

  Szia!

  Először is, neked nem a Search függvény kell, mert az arra szolgál, hogy megkeresse, van-e benne olyan karaktersorozat.
  Ezzel szemben a CountIf (magyarul Darabteli) függvény megszámolja, hogy a keresett érték hányszor fordul elő a tartományban.
  Másodszor:
  Mivel szövegrészletet keresel, ezért használni kell a * (csillag) joker karaktert a szöveg előtt és után is.
  A B3 cella képlete:
  Magyarul:
  =DARABTELI(D:D;"*" & A3 & "*")
  makróból így adhatod meg:
  Range("B3").Formula="=COUNTIF(D:D,""*"" & A3 & ""*"")
  De egyszerre egész tartomány képletét is megadhatod, pl.
  Range("B3:B10").Formula="=COUNTIF(D:D,""*"" & A3 & ""*"")

  Üdv.
  Ps. A Search (magyarul Szöveg.Keres) függvény egy db szövegen belül tud keresni, több cellán nem.

• #40819 Fferi50 Topikgazda Laciahegyrol #40816

  Új Válasz 2019-04-16 16:36:34 #40819

  Ú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 Laciahegyrol #40816 üzenetére

  Szia!

  Természetesen tudtam, hogy az I15 cella tartalmát keresed, a kérdés az volt, mit tartalmaz a cella konkrétan (egy betűt, egy szót, szótöredéket???)
  Hová tetted a mintát?

  Üdv.

• #40773 Fferi50 Topikgazda Laciahegyrol #40772

  Új Válasz 2019-04-15 14:49:11 #40773

  Ú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 Laciahegyrol #40772 üzenetére

  Szia!

  1. A Workbooks("*.*") mi szeretne lenni? Mert munkafüzet nevet ilyen módon nem lehet megadni.
  2. Mi a tartalma az I15 cellának? Egy betű vagy valamilyen betűcsoport?
  3. Nyelvi beállítások rendben vannak? Milyen karakterkódolás van abban a munkafüzetben, ahol keresel?
  4. Egy mintát ha feltennél elérhető módon, lehet okosabbak lennénk, mert így csak a levegőbe durrogtatunk.

  Üdv.

• #40708 sztanozs veterán Laciahegyrol #40706

  Új Válasz 2019-04-11 14:10:51 #40708

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz Laciahegyrol #40706 üzenetére

  Nem látok hibát:
  

• #40702 sztanozs veterán Laciahegyrol #40701

  Új Válasz 2019-04-11 11:38:52 #40702

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz Laciahegyrol #40701 üzenetére

  Nem kezeli úgy, csak nem tudja az UI megjeleníteni Unicode karakterként. Amúgy milyen Office verziót használsz? Nálam simán működik:
  

• #40464 Mutt senior tag Laciahegyrol #40463

  Új Válasz 2019-03-20 12:55:53 #40464

  Ú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 Laciahegyrol #40463 üzenetére

  Szia,

  Én nem tudok ilyen beállításról. Nekem egy cella tartalmát rendesen másolja át a Ctrl+C és Ctrl+V páros,

  pl. a 40.00 Ft-ot egy form-ba, vagy egy mezőbe simán másolja formázva.

  

  Ahol gond lehet az amikor több cellát akarsz másolni, mert akkor már táblázatként viszi át ami el tudja rontani a dolgokat.

  Ebben a példában a formon táblazatos formátum kezelhetetlen, de a több mezőt tartalmazó táblázatban (jobb oldlat) rendben van.
  

  Esetleg próbáld meg ezt a makrót, ami a kijelölt tartomány celláinak a formázott értékét egy hosszú szövegbe helyezi át.

  Sub SAP_Copy()
Dim szoveg As String
Dim cella As Range
Dim sor As Long

szoveg = ""
sor = 0

For Each cella In Selection
If sor <> cella.Row And sor > 0 Then
szoveg = szoveg & vbNewLine
End If

szoveg = szoveg & cella.Text & " "
sor = cella.Row
Next cella

Call CopyText(szoveg)

End Sub


Sub CopyText(Text As String)
'VBA Macro using late binding to copy text to clipboard.
'By Justin Kay, 8/15/2014
Dim MSForms_DataObject As Object
Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
MSForms_DataObject.SetText Text
MSForms_DataObject.PutInClipboard
Set MSForms_DataObject = Nothing
End Sub

  üdv

• #40193 Fferi50 Topikgazda Laciahegyrol #40191

  Új Válasz 2019-02-12 10:56:13 #40193

  Ú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 Laciahegyrol #40191 üzenetére

  Szia!

  A tartományt sem jól jelölted ki.
  WorksheetFunction.CountIf(Range("A:A"), "<" & valtozo)
  a megfelelő formátum.

  Üdv.

• #40192 Delila_1 veterán Laciahegyrol #40191

  Új Válasz 2019-02-12 10:50:16 #40192

  Ú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 Laciahegyrol #40191 üzenetére

  Db = Application.WorksheetFunction.CountIf(Columns(1), "<" & valtozo)
MsgBox Db

• #39686 andreas49 senior tag Laciahegyrol #39684

  Új Válasz 2018-11-27 12:23:49 #39686

  Ú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 Laciahegyrol #39684 üzenetére

  Ilyenre gondoltam:
  

• #39674 Mutt senior tag Laciahegyrol #39669

  Új Válasz 2018-11-26 15:43:12 #39674

  Ú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 Laciahegyrol #39669 üzenetére

  Szia,

  Van még lehetőség akár a Windows Registry-ben is tárolni az eredményt.

  Call SaveSetting("Valami", "Érték", "Változóm", SajatEgesz)

  Előhívni pedig így lehet:

  SajatEgesz = GetSetting("Valami", "Érték", "Változóm")

  Kérdés, hogy pontosan mire kell neked a korábbi állapot mentése? Egyáltalán milyen gyakran változik amit írtál?

  üdv

• #39673 Delila_1 veterán Laciahegyrol #39669

  Új Válasz 2018-11-26 14:26:29 #39673

  Ú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 Laciahegyrol #39669 üzenetére

  Idézet Krizsák László könyvéből:

  "Előfordul, hogy az eljárás ismételt meghívásakor szeretnénk az előző befejezéskori értékeket visszanyerni.
  Ilyen esetekben használható a Static változó definiálás.

  A Static hatására az eljárásból kilépve a változó értéke nem semmisül meg, hanem csak elrejtésre kerül.
  (A memóriában nem szabadul fel a tárolására használt terület, ezért sok ilyen változó használata nem célszerű.) Az eljárás következő meghíváskor a kilépéskori értéket kapjuk vissza.

  Bár ezek alapján látszólag a Static változókhoz a hívó programból is hozzá lehetne férni (benne vannak a memóriában), de ez nem valósul meg, mivel a változók általában csak az őket definiáló programokban érhetőek el."

• #39670 Delila_1 veterán Laciahegyrol #39669

  Új Válasz 2018-11-26 14:07:22 #39670

  Ú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 Laciahegyrol #39669 üzenetére

  A Static tip. változó csak addig tartja meg az értékét, míg be nem zárod a füzetedet.

• #39668 Delila_1 veterán Laciahegyrol #39667

  Új Válasz 2018-11-26 13:45:05 #39668

  Ú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 Laciahegyrol #39667 üzenetére

  A füzet bezárásakor a makró változóinak értéke lenullázódik.
  Nem értem, mi köze a névadásnak az egyes értékek tárolásához.

  A lenti makróban is egy cella tartalmazza az értéket, amit beolvashatsz egy változóba, csak itt egy újonnan létrehozott tartomány egy bizonyos cellájáról van szó.

  Sub mm()
Dim valtozo As Variant
'Nevet adunk a Data lapon lévő B2:K20 tartománynak
Sheets("Data").Names.Add Name:="Tartomany", RefersToR1C1:="=Data!R2C2:R20C11"

'betesszük a valtozo-ba a megadott tartomány 2. sorában, 3. oszlopában lévő értéket
valtozo = Sheets("Data").Range("Tartomany")(2, 3)
MsgBox valtozo
End Sub

• #39666 Delila_1 veterán Laciahegyrol #39664

  Új Válasz 2018-11-26 13:04:28 #39666

  Ú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 Laciahegyrol #39664 üzenetére

  A makró végén írasd be egy cellába
  Sheets("Munkalap").Range("AA1")=változó

  új indításkor innen olvashatod ki.
  változó=Sheets("Munkalap").Range("AA1")

• #39641 Mutt senior tag Laciahegyrol #39638

  Új Válasz 2018-11-21 15:56:30 #39641

  Ú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 Laciahegyrol #39638 üzenetére

  Szia,

  Próbáld ki, hogy ez a minta megy-e nálad?

  Ha igen, akkor a nálad lévő fájlban más a felépítés. Több infó kell.

  üdv

• #39634 Mutt senior tag Laciahegyrol #39633

  Új Válasz 2018-11-21 12:11:01 #39634

  Ú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 Laciahegyrol #39633 üzenetére

  Szia,

  2 megoldási javaslat:

  1. A formon az OK gomb Tag tulajdonságának a használata.
  2. Globális változó, amelyet a form is elér.

  A példában van 3 gombom (Összeadás, Kivonás és Szorzás) mindegyikhez a "Kattintas" makró van társítva.
  

  Sub Kattintas()

'1-es változat - ahol Sajat a form neve, amelyen bOK a gomb
Sajat.bOK.Tag = ActiveSheet.Shapes(Application.Caller).AlternativeText

'2-es változat - ahol a muvelet egy globális változó
muvelet = ActiveSheet.Shapes(Application.Caller).AlternativeText

Sajat.Show

End Sub

  Van egy form "Sajat" név alatt, amin van egy OK és egy Mégsem gomb (bOK és bCancel).
  Az OK gomb eseménye ennyi:

  Private Sub bOK_Click()
Dim a As Long, b As Long

Randomize 3

a = Int(Rnd() * 100) + 1
b = Int(Rnd() * 100) + 1

Select Case bOK.Tag '1-es változat
'Select Case muvelet '2-es változat
Case "Összeadás"
MsgBox a & " + " & b & " = " & a + b
Case "Kivonás"
MsgBox a & " - " & b & " = " & a - b
Case "Szorzás"
MsgBox a & " * " & b & " = " & a * b
End Select

End Sub

  Remélem ezen el tudsz indulni.

  üdv

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