RAN, Pelena,
вот смотрите первый код то что было
[vba]Код
Private Sub CommandButton6_Click()
'Me.MonthView1.Visible = True
Set obj = UserForm1.Controls("TextBox1") ' + CStr(CommandButton6.Tag))
With UserForm1.MonthView1
.Top = TextBox1.Top + 17
' .Left = obj.Left
.Visible = True
' .Tag = CommandButton6.Tag
End With
End Sub
[/vba]
А этот поправили
[vba]Код
Private Sub CommandButton6_Click()
Me.MonthView1.Visible = True
Me.MonthView1.Refresh
'Set obj = UserForm1.Controls("TextBox1") ' + CStr(CommandButton6.Tag))
'With UserForm1.MonthView1
' .Top = TextBox1.Top + 17
' .Left = obj.Left
' .Visible = True
' .Tag = CommandButton6.Tag
'End With
End Sub
[/vba]
А я понял вы дополнили данный код обновлением
[vba][/vba]
Но тогда я не могу понять (((( почему на том файле где я его взял он срабатывает (((( а у меня не сработал в виду того что не было обновления???