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

• #33359 Nowitzki csendes tag Nowitzki #33348

  Új Válasz 2016-12-02 18:38:49 #33359

  Ú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

  

  Nowitzki

  csendes tag

  válasz Nowitzki #33348 üzenetére

  Valaki valami ötlet?

• #33348 Nowitzki csendes tag

  Új Válasz 2016-11-30 18:48:27 #33348

  Ú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

  

  Nowitzki

  csendes tag

  Sziasztok!

  Milyen paramétert kell megadnom a print # használatakor hogy a karakter kódolás stimmeljen? Megcsinálja az adatexportot, de a txt fájlban a szöveg tele van kérdőjelekkel az ékezetes karakterek helyén, pedig a txt fájl alapból utf-8-ban van mentve.
  Tudnátok segíteni nekem ebben?

  Köszönöm!

• #32075 Nowitzki csendes tag Fferi50 #32074

  Új Válasz 2016-07-14 13:12:12 #32075

  Ú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

  

  Nowitzki

  csendes tag

  válasz Fferi50 #32074 üzenetére

  Kipróbáltam.
  Ide feltöltöttem egy mintát:
  https://www.dropbox.com/s/zvbda2m8q3g56v3/Book1.xlsx?dl=0

• #32073 Nowitzki csendes tag Fferi50 #32072

  Új Válasz 2016-07-14 12:24:08 #32073

  Ú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

  

  Nowitzki

  csendes tag

  válasz Fferi50 #32072 üzenetére

  Üdv! Ez az átlag. Szumma az egész osztva a darabbal.

• #32071 Nowitzki csendes tag

  Új Válasz 2016-07-14 09:07:20 #32071

  Ú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

  

  Nowitzki

  csendes tag

  Sziasztok!

  Egy kis segítségre lenne szükségem!
  A "Sheet1"-en a "D" oszlopban vannak a cikkek, a "K" oszlopban vannak a mennyiségek, az "L" oszlopban pedig a dátum.
  Egy csikkhez és egy dátumhoz minden sorban szerepel ugyanaz a mennyiség is.
  A többi oszlopban különböző értékek vannak így a duplikációkat nem lehet törölni.
  A "Sheet2"-n a "B34" és a "C34" cellában meg van adva 2 dátum.
  Milyen képlettel lehetne kiszámoltani, hogy a "Sheet2"-n a "B34" és a "C34" cellában megadott dátumok között szummázza cikk szerint a mennyiségeket, de egy cikkhez és egy dátumhoz csak egyszer számolja a mennyiséget?

  Köszönöm!

• #31375 Nowitzki csendes tag Nowitzki #31374

  Új Válasz 2016-04-25 05:58:24 #31375

  Ú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

  

  Nowitzki

  csendes tag

  válasz Nowitzki #31374 üzenetére

  Vagy ha sok van és nem akarsz egyesével vacakolni velük akkor jelöld ki a munkafüzetet amiről szó van és futtasd ezt:

  Sub DeleteAllShapes()
  Dim Shp As Shape
  For Each Shp In ActiveSheet.Shapes
  Shp.Delete
  Next Shp
  End Sub

• #31374 Nowitzki csendes tag Ferenc. #31373

  Új Válasz 2016-04-25 05:44:21 #31374

  Ú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

  

  Nowitzki

  csendes tag

  válasz Ferenc. #31373 üzenetére

  Valószínűleg csak be lett illesztve egy vagy több négyszög és el lett tüntetve róla a kitöltés és a szegély. A szaggatott vonal meg csak fehérre lett állítva. Ezeket csak ki kell jelölni és delete. Szerintem.

• #31332 Nowitzki csendes tag föccer #31331

  Új Válasz 2016-04-21 22:52:31 #31332

  Ú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

  

  Nowitzki

  csendes tag

  válasz föccer #31331 üzenetére

  Akkor meg csak CTRL+H és a pontot semmire cserélni és kész.

• #31330 Nowitzki csendes tag nobiand #31329

  Új Válasz 2016-04-21 22:42:59 #31330

  Ú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

  

  Nowitzki

  csendes tag

  válasz nobiand #31329 üzenetére

  Vagy pedig ami sokkal egyszerűbb, és minden esetben működik például ez
  Sub PONT()
  For Each c In Columns("A").Cells 'Itt add meg az érintett tartományt
  If InStr(c.Value, ".") > 0 Then c.Value = Left(c.Value, InStr(c.Value, ".") - 1)
  Next c
  End Sub
  Ez pédául az "A" oszlop összes cellájában levágja a pont utáni részt.

• #31267 Nowitzki csendes tag Delila_1 #31266

  Új Válasz 2016-04-12 17:56:05 #31267

  Ú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

  

  Nowitzki

  csendes tag

  válasz Delila_1 #31266 üzenetére

  Vagy pedig index+match, az talán jobb. Az fkeres csak jobbra tud keresni, az index+match pedig balra is. Ha később majd variálod a táblázatot az akkor is fog működni.

• #31246 Nowitzki csendes tag tgumis #31203

  Új Válasz 2016-04-06 23:35:05 #31246

  Ú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

  

  Nowitzki

  csendes tag

  válasz tgumis #31203 üzenetére

  Próbáld meg ezt:
  Sub fejlec_formazas()
  Application.ScreenUpdating = False
  For Each ws In ThisWorkbook.Worksheets
  With ws
  .Activate
  .Unprotect Password:="Lufi09"
  With ActiveWindow
  .FreezePanes = False
  Range("A10").Select
  .FreezePanes = True
  End With
  .Range("I1:I3").Interior.Color = RGB(204, 192, 218)
  With .Range("B1:D3,B8:D158,I8:J158,M8:N158,P8:P158,S8:V158,Y8:Y158")
  .Locked = False
  .FormulaHidden = False
  End With
  If .AutoFilterMode Then .Cells.AutoFilter
  .Range("A6:J6").AutoFilter
  ' kódolás
  .Protect Password:="Lufi09", _
  UserInterfaceOnly:=True, _
  AllowFormattingColumns:=True, _
  AllowFiltering:=True
  .EnableSelection = xlNoRestrictions
  End With
  Next ws
  Application.ScreenUpdating = True
  End Sub

• #31202 Nowitzki csendes tag tgumis #31201

  Új Válasz 2016-04-03 13:52:04 #31202

  Ú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

  

  Nowitzki

  csendes tag

  válasz tgumis #31201 üzenetére

  Ha jól értem azt szeretnéd, hogy ha volt is beállítva autofilter akkor azt törölje és helyette a kódban beállított autofiltert alkalmazza és ezt csinálja meg az összes sheet-en??

• #31185 Nowitzki csendes tag Kalandor #31181

  Új Válasz 2016-03-31 20:28:10 #31185

  Ú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

  

  Nowitzki

  csendes tag

  válasz Kalandor #31181 üzenetére

  Mindenféle utómunka nélkül szerintem sem lehetséges szétválasztani a szöveget (csak ha tabulátorral vannak elválasztva az egyes értékek). Szerintem a legegyszerűbb ha a fenti makrót bemásolod a "PERSONAL.XLSB" fájlba és akkor az összes excel fájlban működni fog egy klikkre.

• #31183 Nowitzki csendes tag Declare #31182

  Új Válasz 2016-03-31 09:44:22 #31183

  Ú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

  

  Nowitzki

  csendes tag

  válasz Declare #31182 üzenetére

  Nincs mit! Minőségügyi mérnök vagyok, de elég sok statisztikát is kell készítenem, úgyhogy inkább megtanultam makrókat írni rá.

• #31180 Nowitzki csendes tag Kalandor #31179

  Új Válasz 2016-03-31 08:52:08 #31180

  Ú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

  

  Nowitzki

  csendes tag

  válasz Kalandor #31179 üzenetére

  Importálás nélkül tabulátorral kell elválasztva lenniük az értékeknek hogy másolás-beillesztéskor külön cellába kerüljenek az értékek. Minden más esetben csak importálással működik, vagy beillesztés után "text to columns", mindkettőre lehet makrót írni. Például ha ezzel "¿" legyen elálasztva akkor csak bemásolod az "A1" cellába a "¿"-vel elválasztott értékeket (pl.: adat1¿adat2¿adat3¿adat4¿adat5) és futtatod ezt:
  Sub Macro1()
  Range("A1").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:="¿"
  End Sub
  akkor szétszedi cellákba.

• #31170 Nowitzki csendes tag PowerBuldog #31169

  Új Válasz 2016-03-30 06:29:14 #31170

  Ú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

  

  Nowitzki

  csendes tag

  válasz PowerBuldog #31169 üzenetére

  Vagy ha a részleteket is ki akarod íratni akkor:

  Sub pizza()
  sor = 1
  For pizza1 = 1 To 45
  For pizza2 = 1 To 45
  Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2 'pizzák sorszámai
  Cells(sor, "C") = Cells(pizza1, "A") & "+" & Cells(pizza2, "A") ' pizzák árai
  Cells(sor, "D") = Cells(pizza1, "A") + Cells(pizza2, "A") 'pizzák összege
  Cells(sor, "E") = "=" & Cells(pizza1, "A").Address & "+" & Cells(pizza2, "A").Address 'pizzák összege képlettel
  sor = sor + 1
  Next pizza2
  Next pizza1
  End Sub

• #31168 Nowitzki csendes tag PowerBuldog #31167

  Új Válasz 2016-03-29 22:47:14 #31168

  Ú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

  

  Nowitzki

  csendes tag

  válasz PowerBuldog #31167 üzenetére

  Ha az "A" oszlopban vannak egymás alatt felsorolva a pizzák árai, akkor működik. Ezért kérdeztem, hogy hol vannak neked megadva az egyes pizzák árai.

• #31166 Nowitzki csendes tag PowerBuldog #31165

  Új Válasz 2016-03-29 21:38:43 #31166

  Ú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

  

  Nowitzki

  csendes tag

  válasz PowerBuldog #31165 üzenetére

  Hol vannak megadva a pizzák árai?
  Tegyük fel az "A" oszlopban vannak egymás alatt felsorolva az egyes pizzák árai. Akkor mondjuk ez működhet:

  Sub pizza()
  sor = 1
  For pizza1 = 1 To 45
  For pizza2 = 1 To 45
  Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2
  Cells(sor, "C") = Cells(pizza1, "A") + Cells(pizza2, "A")
  sor = sor + 1
  Next pizza2
  Next pizza1
  End Sub

• #31163 Nowitzki csendes tag Declare #31162

  Új Válasz 2016-03-29 17:30:34 #31163

  Ú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

  

  Nowitzki

  csendes tag

  válasz Declare #31162 üzenetére

  Ez hozzáírja a fájlnévhez a mentés dátumát (év, hó, nap, óra, perc).
  Sub ActiveSheetExportToPdf1()
  ActiveSheet.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste_" & Format(Now, "yyyymmdd_hhnn") & ".pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End Sub

  Ez pedig hozzáad egy növekményes azonosítót a fájlnévhez ha az már létezik.
  Sub ActiveSheetExportToPdf2()
  cntr = ""
  If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = "" Then GoTo xprt
  If Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") <> "" Then
  cntr = 1
  Do Until Dir(ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf") = ""
  cntr = cntr + 1
  Loop
  End If
  xprt:
  ActiveSheet.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & cntr & ".pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End Sub

• #31161 Nowitzki csendes tag Declare #31160

  Új Válasz 2016-03-29 12:15:39 #31161

  Ú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

  

  Nowitzki

  csendes tag

  válasz Declare #31160 üzenetére

  Szia,

  Próbáld meg ezt:
  Sub ActiveSheetExportToPdf()
  ActiveSheet.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & ".pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End Sub

• #31155 Nowitzki csendes tag Delila_1 #31153

  Új Válasz 2016-03-28 16:02:57 #31155

  Ú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

  

  Nowitzki

  csendes tag

  válasz Delila_1 #31153 üzenetére

  De ott vannak. Itt a fájl:
  https://www.dropbox.com/s/3c58n07qe3fqm2v/Book2.xlsm?dl=0

• #31152 Nowitzki csendes tag Delila_1 #31151

  Új Válasz 2016-03-28 14:54:59 #31152

  Ú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

  

  Nowitzki

  csendes tag

  válasz Delila_1 #31151 üzenetére

  Üdv,

  Ez nálam kitörli az összes sort.

• #31148 Nowitzki csendes tag YAN0U #31147

  Új Válasz 2016-03-27 21:25:42 #31148

  Ú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

  

  Nowitzki

  csendes tag

  válasz YAN0U #31147 üzenetére

  Üdv,

  Próbáld meg ezt:
  Sub NullakTorlese()
  Dim Rng(1 To 3) As String
  Rng(1) = "C"
  Rng(2) = "G"
  Rng(3) = "K"
  For i = 1 To 3
  For j = 1 To 22
  If Cells(j, Rng(i)) = 0 Then
  Cells(j, Rng(i)).ClearContents
  End If
  Next j
  Next i
  End Sub

• #31146 Nowitzki csendes tag

  Új Válasz 2016-03-27 20:46:25 #31146

  Ú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

  

  Nowitzki

  csendes tag

  Sziasztok,

  Egy kis segítséget szeretnék kérni.
  Van egy munkafüzet jó pár ezer sorral. Az adatok alapesetben hetes csoportokban vannak (101-107), de néha olyan adatokat is regisztrál a gép aminek nincs meg mind a hét sora. Ezeket a sorokat szeretném automatikusan törölni egy makróval. Írtam is rá egyet de nem úgy működik ahogy szeretném. Tudnátok segíteni nekem ebben?

  

  Sub DeletingUnnecessaryRows()
  For i = 2 To ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.Worksheets(1).Rows.Count, 1).End(xlUp).Row
  If Cells(i + 1, 1) - Cells(i, 1) <> 1 And Cells(i + 1, 1) - Cells(i, 1) <> -6 Then
  Rows(i).EntireRow.Delete
  End If
  Next
  End

  Előre is nagyon szépen köszönöm!

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