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

• #20473 Mutt senior tag Salex1 #20462

  Új Válasz 2014-02-12 20:40:44 #20473

  Ú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 Salex1 #20462 üzenetére

  Hello,

  ...valahogy az aktuális nap ki legyen emelve...

  Feltételes formázással meg tudod tenni, ha az év az A1-es cellában van, a hónapok A, E, I stb. oszlopoktól kezdődnek és a napok a 2. sortól indulnak:

  =DÁTUM($A$1;INT((OSZLOP()-1)/4)+1;SOR()-1)=MA()

  üdv

• #20463 Delila_1 veterán Salex1 #20462

  Új Válasz 2014-02-12 15:21:55 #20463

  Ú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 Salex1 #20462 üzenetére

  Jó lett volna, ha látszanak a sor- és oszlopazonosítók. Úgy tippelem, hogy a jan.1. a B2 cellában van, a febr.1. pedif az F2-ben.

  A laphoz kell rendelned a makrót.

  Private Sub Worksheet_Activate()
  Dim nap As Integer, honap As Integer
  nap = Day(Date) + 1
  Select Case Month(Date)
  Case 1
  honap = 2 'B oszlop
  Case 2
  honap = 6 'F oszlop
  End Select
  
  Cells(nap, honap).Select
  End Sub

  Folytatsd a Case utasítást 12-ig. A hónap mindig annak az oszlopnak a száma legyen, ahova az ahavi adatok kerülnek.

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