pekný deň. potreboval by som znovu excelácku radu. ďakujem za ochotu
Dá sa viacerými spôsobmi, napr. zavesiť si na jednotlivé OptionButtons takúto funkciu:
Code:
Sub OptButtCheck()
Dim tf As Boolean
If (ActiveSheet.OptionButtons("OptionButton_A").Value = 1) Then
Range("B5:B12").Value = Range("P3:P10").Value
ElseIf (ActiveSheet.OptionButtons("OptionButton_B").Value = 1) Then
Range("B5:B12").Value = Range("Q3:Q10").Value
ElseIf (ActiveSheet.OptionButtons("OptionButton_C").Value = 1) Then
Range("B5:B12").Value = Range("R3:R10").Value
ElseIf (ActiveSheet.OptionButtons("OptionButton_D").Value = 1) Then
Range("B5:B12").Value = Range("S3:S10").Value
End If
End Sub
peknú predvianočnú pohodu.
exceláci už dovolenkujú? ak predsa nie, mohol by prosím niektorý kuknúť na #27, rád by som si ulahčil predvianočný týždeň. velmi pekne ďakujem
peknú predvianočnú pohodu.
exceláci už dovolenkujú? ak predsa nie, mohol by prosím niektorý kuknúť na #27, rád by som si ulahčil predvianočný týždeň. velmi pekne ďakujem