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

• #30168 coldfirexx tag coldfirexx #30167

  Új Válasz 2016-01-18 10:13:47 #30168

  Ú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

  

  coldfirexx

  tag

  válasz coldfirexx #30167 üzenetére

  Kivételesen most magamnak válaszolom meg, de hátha másnak is jól jön:

  Sub Mentes_maskent()

  fileSaveName = Application.GetSaveAsFilename( _
  fileFilter:="Excel Files (*.xlsm), *.xlsm")

  If fileSaveName <> False Then
  ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
  End If

  End Sub

• #29746 m.zmrzlina senior tag coldfirexx #29740

  Új Válasz 2015-12-07 19:28:47 #29746

  Ú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

  

  m.zmrzlina

  senior tag

  válasz coldfirexx #29740 üzenetére

  Bocs, de te olvsod is ezt a fórumot, vagy csak írod?

  Erre a kérdésedre itt már egyszer megkaptad ugyanezt a választ.

• #29738 bsh addikt coldfirexx #29736

  Új Válasz 2015-12-07 15:02:50 #29738

  Ú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

  

  bsh

  addikt

  válasz coldfirexx #29736 üzenetére

  a modul neve ugyanaz (valasz) mint a változóé.

• #29737 bteebi veterán coldfirexx #29736

  Új Válasz 2015-12-07 15:01:30 #29737

  Ú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

  

  bteebi

  veterán

  válasz coldfirexx #29736 üzenetére

  Érdekes. Szemre jónak tűnt, ki is próbáltam, és nekem működött. Mondjuk neked is volt, ahol jó volt...

• #29701 m.zmrzlina senior tag coldfirexx #29700

  Új Válasz 2015-12-03 16:27:25 #29701

  Ú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

  

  m.zmrzlina

  senior tag

  válasz coldfirexx #29700 üzenetére

  Szerintem a modulodnak amiben a kódod van az a neve, hogy "valasz". A kódban pedig van egy változó ugyanilyen néven.

  Valamelyiket nevezd át!

• #29269 Delila_1 veterán coldfirexx #29267

  Új Válasz 2015-10-30 12:58:49 #29269

  Ú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 coldfirexx #29267 üzenetére

  Az első lap H oszlopában lévő tengerikígyó képlet értéke mikor legyen IGEN, és mikor NEM?

• #29266 Delila_1 veterán coldfirexx #29265

  Új Válasz 2015-10-30 12:06:44 #29266

  Ú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 coldfirexx #29265 üzenetére

  Tedd ki a füzetet egy elérhető helyre, ahonnan letölthető.
  Lehetnek benne hamis adatok az igaziak helyett. Elég pár sor (lásd a Téma összefoglalót).

• #29264 Delila_1 veterán coldfirexx #29262

  Új Válasz 2015-10-30 11:58:14 #29264

  Ú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 coldfirexx #29262 üzenetére

  Átírtad a lapok nevét a makróban szereplő egyes és kettes névről a sajátodra?

  If CV = "IGEN" Then Cells(CV.Row, "F").Copy Sheets("kettes").Cells(ide, "A")

  A fenti sor kiemelt része végzi a beillesztést.

• #29259 Delila_1 veterán coldfirexx #29251

  Új Válasz 2015-10-29 19:36:42 #29259

  Ú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 coldfirexx #29251 üzenetére

  Itt a makró:

  Sub Nevek()
  Dim usor As Long, ter As Range, ide As Long, CV As Range
  
  usor = Range("H" & Rows.Count).End(xlUp).Row
  Set ter = Sheets("egyes").Range("H3:H" & usor).CurrentRegion
  
  For Each CV In ter
  ide = Sheets("kettes").Range("A" & Rows.Count).End(xlUp).Row + 1
  If CV = "IGEN" Then Cells(CV.Row, "F").Copy Sheets("kettes").Cells(ide, "A")
  Next
  End Sub

  Modulba kell tenned, ahogy a Téma összefoglalóban le van írva.

  Szerk.: a válasz elküldése után jutottam az olvasásban oda, hogy kaptál egyszerű, nem makrós megoldást.

• #29256 m.zmrzlina senior tag coldfirexx #29251

  Új Válasz 2015-10-29 18:16:14 #29256

  Ú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

  

  m.zmrzlina

  senior tag

  válasz coldfirexx #29251 üzenetére

  Én közismerten hajlamos vagyok verébre is makróval lőni de szerintem itt ne ragaszkodj a makrós megoldáshoz. Egyszerűen szűrd le a tartományt a H oszlop IGEN értékeire azután az F oszlop értékeit másold a kívánt helyre. Szerintem ettől egyszerűbb megoldást nem találsz.

• #28659 Delila_1 veterán coldfirexx #28629

  Új Válasz 2015-09-16 17:57:23 #28659

  Ú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 coldfirexx #28629 üzenetére

  A lenti makró a lapon lévő diagramok címéből eltünteti a "0%" szövegrészt.

  Sub NullaNyet()
  Dim CV As Integer, szoveg As String
  
  For CV = 1 To ActiveSheet.ChartObjects.Count
  ActiveSheet.ChartObjects(CV).Activate
  szoveg = ActiveChart.ChartTitle.Characters.Text
  szoveg = Application.WorksheetFunction.Substitute(szoveg, "0%", "")
  
  ActiveChart.ChartTitle.Characters.Text = szoveg
  Next
  End Sub

• #28297 Fferi50 Topikgazda coldfirexx #28251

  Új Válasz 2015-08-28 23:32:06 #28297

  Ú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 coldfirexx #28251 üzenetére

  Szia!

  Miért nem használod ki az Excel beépített lehetőségeit?

  Sub Szerződések_törlése()
  With Sheets("Alapadatok")
  .UsedRange.Autofilter Field:=31, Criteria1:="A szerződés előző évben lejárt"
  .UsedRange.Offset(1,0).Specialcells(xlCelltypeVisible).EntireRow.Delete
  .AutofilterMode=False
  End With
  Sheets("Vezérlő").Select
  Range("B6").Select
  End Sub

  Üdv.

• #28257 Delila_1 veterán coldfirexx #28255

  Új Válasz 2015-08-27 14:20:16 #28257

  Ú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 coldfirexx #28255 üzenetére

  Rögzíts egy makrót. Ebben annyi legyen, hogy autoszűrővel szűröd az AE oszlopot a szövegedre. Beállsz az első látható sor A cellájára, Ctrl+le nyíllal kijelölöd a látható tartományt, és törlöd a sorokat, majd az AE oszlopban megszünteted a szűrést.

  Ez akkor jó, ha az A oszlopban is folyamatosan annyi adat van, mint az AE-ben.

  A 2. kérdésedre, a formátum másolására:

  Rows("2:2").Copy
  Rows("3:3").Select
  Range(Selection, Selection.End(xlDown)).PasteSpecial xlPasteFormats
  Application.CutCopyMode = False

• #28253 Mittu88 senior tag coldfirexx #28251

  Új Válasz 2015-08-27 13:40:38 #28253

  Ú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

  

  Mittu88

  senior tag

  válasz coldfirexx #28251 üzenetére

  Azt próbáld még ki, hogy a Dim j as integer sor alá beírod: application.screenupdating = false
  Amúgy nem lehetne lassabb, nem értem a dolgot.

  Azt írd majd meg légyszi, hogy gyorsult-e ettől a parancstól. Köszi!

• #28250 Mittu88 senior tag coldfirexx #28249

  Új Válasz 2015-08-27 12:33:51 #28250

  Ú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

  

  Mittu88

  senior tag

  válasz coldfirexx #28249 üzenetére

  Sub adattorles()

  Dim i as integer
  Dim j as integer

  Worksheets("Alapadatok").Activate
  j = 0
  i = 0
  Do
  i = i + 1
  If Cells(i, 31).value = "A szerződés előző évben lejárt" then 'A 31 az AE oszlop száma
  Cells(i, 31).entirerow.delete
  i = i-1
  j = j + 1
  End if
  Loop until Cells(i, 1).value = "" 'Addig megy az első oszlopon végig, amíg nem talál üres cellát

  Msgbox "A művelet sikeresen lefutott, " & j & " sor került eltávolításra", vbokonly

  End sub

• #28246 Mittu88 senior tag coldfirexx #28244

  Új Válasz 2015-08-27 11:30:09 #28246

  Ú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

  

  Mittu88

  senior tag

  válasz coldfirexx #28244 üzenetére

  Ha van egy olyan sorod, amiben végig vannak adatok, akkor a következőt csináld a For ciklus helyett:
  i = 0
  Do
  i = i + 1
  If Cells(i, 31).value = "A szerződés előző évben lejárt" then 'A 31 az AE oszlop száma
  Cells(i, 31).entirerow.delete
  i = i-1
  End if
  Loop until Cells(i, végigtöltöttsor sorszáma).value = "" 'Addig megy, amíg nem talál üres cellát

  Amúgy a CountIf függvény lassítja nagyon, nincs rá szükség. Simán a cella értékét (value) vizsgáld.

• #28238 Delila_1 veterán coldfirexx #28234

  Új Válasz 2015-08-26 12:19:52 #28238

  Ú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 coldfirexx #28234 üzenetére

  Pl. így:

  Sub Kepletek()
  Dim usor1 As Long, usor2 As Long
  
  usor1 = Range("A" & Rows.Count).End(xlUp).Row
  usor2 = Range("Z" & Rows.Count).End(xlUp).Row
  Range("Z" & usor2 & ":AM" & usor2).Copy
  Range("Z" & usor2 + 1 & ":Z" & usor1).PasteSpecial xlPasteFormulas
  Application.CutCopyMode = False
  End Sub

• #28236 nyirisandor újonc coldfirexx #28234

  Új Válasz 2015-08-26 12:08:29 #28236

  Ú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

  

  nyirisandor

  újonc

  válasz coldfirexx #28234 üzenetére

  Köszönöm szépen a segítséget.
  Működik :-) és most meg is tanulom.

• #28235 Delila_1 veterán coldfirexx #28234

  Új Válasz 2015-08-26 11:56:45 #28235

  Ú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 coldfirexx #28234 üzenetére

  Nem kell ehhez makró, 1 (dupla) kattintással megvan.

  Kijelölöd az eddigi utolsó képleteket (Z3:AM3 tartomány). A kijelölés jobb alsó sarkában van egy kis fekete négyzet, azon egy duplaklikk lemásolja a képleteket addig, amíg a mellette lévő Z oszlopban valamilyen értéket talál.

• #28228 Delila_1 veterán coldfirexx #28227

  Új Válasz 2015-08-25 15:26:05 #28228

  Ú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 coldfirexx #28227 üzenetére

  Szívesen.

• #28226 Delila_1 veterán coldfirexx #28225

  Új Válasz 2015-08-25 15:09:38 #28226

  Ú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 coldfirexx #28225 üzenetére

  Az utolsó makrót másold be, azzal ott lesz szegély, ahol kell.

• #28224 Delila_1 veterán coldfirexx #28223

  Új Válasz 2015-08-25 14:49:53 #28224

  Ú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 coldfirexx #28223 üzenetére

  Sub Elrejt()
  Dim szam As Long, CV As Range
  
  For Each CV In Range("A39:A83")
  If CV = "Elrejtve" Then
  Rows(CV.Row).EntireRow.Hidden = True
  Else
  Rows(CV.Row).EntireRow.Hidden = False
  szam = CV.Row
  End If
  Next
  Range("B" & szam & ":N" & szam).Borders(xlEdgeTop).Weight = xlMedium
  End Sub

  Akkor az utolsó, nem rejtett sornak adunk felső szegélyt.

• #28222 Delila_1 veterán coldfirexx #28221

  Új Válasz 2015-08-25 14:43:42 #28222

  Ú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 coldfirexx #28221 üzenetére

  Sub Elrejt()
  Dim szam As Long, CV As Range
  
  For Each CV In Range("A39:A83")
  If CV = "Elrejtve" Then
  Rows(CV.Row).EntireRow.Hidden = True
  Else
  Rows(CV.Row).EntireRow.Hidden = False
  End If
  szam = CV.Row
  Next
  Range("B" & szam & ":N" & szam).Borders(xlEdgeBottom).Weight = xlMedium
  End Sub

  Nem világos, hogy az alsó, látható adat, vagy az utolsó elrejtett sor aljára akarsz-e vastag vonalat?
  Ha az utóbbi, akkor a szam = CV.Row sort az Else fölé tedd át. Ebben az esetben viszont nem látszik, mert ez a sor rejtett.

• #28220 Delila_1 veterán coldfirexx #28219

  Új Válasz 2015-08-25 14:14:20 #28220

  Ú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 coldfirexx #28219 üzenetére

  Szívesen.

  Set terulet=Range("A39:A83")

• #28218 Delila_1 veterán coldfirexx #28217

  Új Válasz 2015-08-25 13:58:56 #28218

  Ú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 coldfirexx #28217 üzenetére

  Sub Elrejt()
  Dim terulet As Range, CV As Range
  Set terulet = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
  
  For Each CV In terulet
  If CV = "Elrejtve" Then
  Rows(CV.Row).EntireRow.Hidden = True
  Else
  Rows(CV.Row).EntireRow.Hidden = False
  End If
  Next
  End Sub

  Talán ez jó lesz.

• #27383 lappy őstag coldfirexx #27381

  Új Válasz 2015-06-16 13:41:24 #27383

  Ú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 coldfirexx #27381 üzenetére

  A 2007-es excelben a következőképpen oldható meg:
  Kezdőlap- Stílusok-Feltételes formázás-Új szabály
  itt kiválasztod a formázandó cella kijelölése képlettel, majd a képletet beírod és alul van hogy formátum, itt lehet megadni hogy a cellát vagy a szegély milyen színűre tegye ha igaz. De csak vékony vonal van vastag nincs!

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