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

• #20717 Delila_1 veterán the radish #20714

  Új Válasz 2014-02-27 06:43:09 #20717

  Ú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 the radish #20714 üzenetére

  A Munka!A1:A12-be vittem be a hónapok nevét, melléjük a B-be, hogy melyik hány napos. Februárhoz 28-at adtam.
  D1-től D31-ig a napok jönnek 1-től 31-ig, és valahova a választható évszámok.

  A formon 3 combobox van. A cbEv rowsource tulajdonságához fixen megadtam az évek tartományát, a cbHonap-hoz az A1:A12-t. Ez utóbbihoz jön a makró.

  Private Sub cbHonap_AfterUpdate()
  If cbEv * 1 Mod 4 = 0 And cbHonap = "febr" Then
  cbNap.RowSource = "Munka1!D1:D29"
  Else
  cbNap.RowSource = "Munka1!D1:D" & Application.WorksheetFunction _
  .VLookup(cbHonap, Range("A2:B12"), 2, 0)
  End If
  End Sub

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