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

• #46742 Pakliman tag Norbika1493 #46735

  Új Válasz 2021-05-21 13:28:37 #46742

  Ú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

  

  Pakliman

  tag

  válasz Norbika1493 #46735 üzenetére

  Szia!

  Pl. az összefoglaló utolsó sora...

• #46396 lappy őstag Norbika1493 #46395

  Új Válasz 2021-04-07 21:26:42 #46396

  Ú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 Norbika1493 #46395 üzenetére

  https://www.contextures.com/xluserform02.html
  Akár ez is jó lehet

• #45653 tgumis tag Norbika1493 #45649

  Új Válasz 2021-01-05 22:13:29 #45653

  Ú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

  

  tgumis

  tag

  válasz Norbika1493 #45649 üzenetére

  Szia!

  Én már rég csak az INDEX HOL.VAN függvény kombót használom ehhez
  
  

• #45650 lappy őstag Norbika1493 #45649

  Új Válasz 2021-01-05 14:03:23 #45650

  Ú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 Norbika1493 #45649 üzenetére

  Fkeres

• #45288 Fferi50 Topikgazda Norbika1493 #45285

  Új Válasz 2020-11-09 13:14:22 #45288

  Ú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 Norbika1493 #45285 üzenetére

  Szia!
  Úgy nem műxik. Csináld úgy, ahogyan Delila mutatta.
  Üdv.
  Ps. Érdemes az FKERES helpjét hozzáolvasni.

• #45286 Delila_1 veterán Norbika1493 #45285

  Új Válasz 2020-11-09 12:56:11 #45286

  Ú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 Norbika1493 #45285 üzenetére

  Szívesen.
  Az FKERES függvény a közelítő érték keresésekor úgy működik, ahogy leírtam.

• #45282 Delila_1 veterán Norbika1493 #45281

  Új Válasz 2020-11-09 10:49:15 #45282

  Ú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 Norbika1493 #45281 üzenetére

  Meg kell határoznod, hogy melyik időpontot melyik napszakhoz rendeled. Ez nálam az F1:G7 tartományban van. A B oszlop képletei ebben a tartományban keresnek.

  

• #45187 Pakliman tag Norbika1493 #45186

  Új Válasz 2020-10-30 07:51:37 #45187

  Ú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

  

  Pakliman

  tag

  válasz Norbika1493 #45186 üzenetére

  Egy pl...
  Ez egy meglévő táblázatban halad végig és bizonyos cellák értéke alapján színez bizonyos számokat is.
  Készít egy táblázatot az így létrejótt listából és elküldi a megadott címzetteknek:

  Public Enum OlBodyFormat
olFormatUnspecified = 0
olFormatPlain = 1
olFormatHTML = 2
olFormatRichText = 3
End Enum

Private Function TableDataColor(strIn As String, Optional color As String = "") As String
If color = "" Then
TableDataColor = strIn
Else
TableDataColor = "<FONT COLOR=" & color & ">" & strIn & "</FONT>"
End If
End Function

Private Function Table(strIn As String, Optional lBorder As Long = 0) As String
Dim sBorder As String

If lBorder = 0 Then
sBorder = ""
Else
sBorder = " border=" & lBorder
End If

Table = "<TABLE" & sBorder & ">" & strIn & "</TABLE>"
End Function

Private Function TableData(strIn As String, Optional alignment As String = "") As String
TableData = "<TD nowrap align=" & alignment & ">" & strIn & "</TD>"
End Function

Private Function TableRow(strIn As String) As String
TableRow = "<TR>" & strIn & "</TR>"
End Function

Public Sub Email_Humányügyre()
Dim sSzöveg1 As String: sSzöveg1 = "Kedves Lányok!" & "<br /><br />"
Dim sSzöveg2 As String: sSzöveg2 = "Szíves hasznosításra..." & "<br /><br />" & _
"Üdv," & "<br /><br />"

Dim OutApp As Object
Dim OutMail As Object

Dim strFej As String
Dim strTB As String

Dim sDátum As String: sDátum = Format(Format(Range("Z1"), "0000"".""00"".""00"), "yyyy. mmmm")
Dim sTárgy As String: sTárgy = "Külsősök teljesítései " & sDátum
Dim lAktSor As Long
Dim lÚjSor As Long
Dim szín As String

strFej = TableRow( _
TableData("HR") & _
TableData("Név") & _
TableData("Összes óra") _
)

For lAktSor = 3 To Cells.Rows.Count 'Az utolsó sort célszerű először meghatározni...
If IsEmpty(Cells(lAktSor, 1)) Then Exit For
If Cells(lAktSor, 15) = "Külsős" Then
Select Case Cells(lAktSor, 11)
Case 60 To 79.9
szín = "blue"

Case Is > 80
szín = "red"

Case Else
szín = ""
End Select
strTB = strTB & _
TableRow( _
TableData(Cells(lAktSor, 1)) & _
TableData(Cells(lAktSor, 2)) & _
TableData( _
TableDataColor( _
Format(Cells(lAktSor, 11), "0.0"), _
szín _
), _
"right" _
) _
)
End If
Next lAktSor

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "Humánügyek"
.CC = "hum1@hum.hu; hum2@hum.hu"
.BCC = ""
.Subject = sTárgy
.BodyFormat = 2 'olFormatHTML
.HTMLBody = sSzöveg1 & _
Table( _
"<Caption>Külsős órák</Caption>" & _
strFej & _
strTB _
, 1) & "<br /><br />" & _
sSzöveg2

.Display ' vagy elküldéshez .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

• #45132 lappy őstag Norbika1493 #45131

  Új Válasz 2020-10-22 07:16:52 #45132

  Ú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 Norbika1493 #45131 üzenetére

  Üres függvény

• #45130 Delila_1 veterán Norbika1493 #45129

  Új Válasz 2020-10-21 10:03:15 #45130

  Ú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 Norbika1493 #45129 üzenetére

  A bekeretezett tartományra kell megadnod a formátumot.
  

• #45128 Delila_1 veterán Norbika1493 #45127

  Új Válasz 2020-10-21 09:37:48 #45128

  Ú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 Norbika1493 #45127 üzenetére

  Az összesítésnél [óó]:pp:mm formát kell alkalmaznod.

• #44779 Bobrooney senior tag Norbika1493 #44776

  Új Válasz 2020-09-04 12:22:19 #44779

  Ú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

  

  Bobrooney

  senior tag

  válasz Norbika1493 #44776 üzenetére

  AB.SZUM esetleg?

• #44778 lappy őstag Norbika1493 #44776

  Új Válasz 2020-09-04 11:15:18 #44778

  Ú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 Norbika1493 #44776 üzenetére

  Szumha függvényt nézd meg inkább.

• #44777 Delila_1 veterán Norbika1493 #44776

  Új Válasz 2020-09-04 11:14:17 #44777

  Ú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 Norbika1493 #44776 üzenetére

  Nem másik táblázatot, hanem kimutatást kell készítened az eredeti táblázat adataiból.

• #44771 Fferi50 Topikgazda Norbika1493 #44767

  Új Válasz 2020-09-03 13:49:33 #44771

  Ú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 Norbika1493 #44767 üzenetére

  Szia!
  Makrórögzítést próbáltad?
  Üdv.

• #44766 Fferi50 Topikgazda Norbika1493 #44764

  Új Válasz 2020-09-03 09:14:35 #44766

  Ú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 Norbika1493 #44764 üzenetére

  Szia!
  Miért is nem tudsz üres sorokra szűrni képletek esetén? Hiszen a képlet eredménye vagy érték vagy "semmi", azaz 0 esetleg 0 hosszúságú szöveg.
  A szűrő képes ezt kezelni. Csak azt kell eldöntened, melyik oszlop az, amelynek alapján szűröd az üres sorokat.
  
  
  Üdv.

• #44763 Delila_1 veterán Norbika1493 #44762

  Új Válasz 2020-09-03 07:37:10 #44763

  Ú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 Norbika1493 #44762 üzenetére

  Az A füzetben szűrd az adatokat úgy, hogy az üres sorok ne jelenjenek meg. Másold a látható sorokat, és illeszd be a B füzetbe.

• #42315 Fferi50 Topikgazda Norbika1493 #42312

  Új Válasz 2019-11-29 07:33:04 #42315

  Ú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 Norbika1493 #42312 üzenetére

  Szia!
  Két lehetőség - makró nélkül - "félautomatikus"
  1. CTRL+0 beírja az adott cellába a mai dátumot. Ez nem frissül tovább
  2. Ma() függvény előre végighúzva az oszlopon. Amikor beírod a terméket, akkor az adott soron másolás - irányított beillesztés értéket.
  Egyébként valóban makró.
  Üdv.

• #42313 Pakliman tag Norbika1493 #42312

  Új Válasz 2019-11-29 06:38:26 #42313

  Ú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

  

  Pakliman

  tag

  válasz Norbika1493 #42312 üzenetére

  Szia!

  Ha jól értelmezem a dolgot, akkor az csak VBA-val oldható meg, mert a függvény (MOST()) jövő héten is frissülni fog és az akkori értéket mutatja majd.
  Markóval:
  A munkalap Change eseményébe kell beírni, hogy ha az adott oszlopban változik egy cella értéke, akkor a meghatározott cellába írja be a dátumot.
  Private Sub Worksheet_Change(ByVal Target As Range)
'Feltételezzük: Dátum "A" (1.) oszlop, Termék "D" (4.) oszlop

If Target.Column = 4 Then Cells(Target.Row, 1) = Date
End Sub

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