Aktywne Wpisy
owsikalfred +926
Jako że Wykop to ogromna moc, może w takim razie ktoś będzie potrafił udzielić odpowiedzi co się u mnie odpoerdziela w #mieszkaniedeweloperskie mieszkanie odebrane od dewelopera w grudniu 2019. Od samego początku pojawiały się liczne pęknięcia na ścianach nośnych oraz suficie w łazience, co nasiliło się po budowie drugiego etapu osiedla. Jako że generalny wykonawca zaczyna coś kręcić że nie wie jak je usunąć zaczynam zastanawiać się nad wadą trwała w budynku.
JustJoinIT +100
URODZINOWE #rozdajo ( ͡°( ͡° ͜ʖ( ͡° ͜ʖ ͡°)ʖ ͡°) ͡°)
Wiecie, że w niektórych rejonach to solenizant rozdaje prezenty gościom, a nie odwrotnie? Dlatego w dniu naszych 7 urodzin uszanujemy tę tradycję i obsypiemy Was podarkami! Do rozdania mamy 7 retrokonsolek Anbernic RG35xx, abyście i Wy mogli cofnąć się pamięcią do lat młodości.
Co zrobić, aby otrzymać
Wiecie, że w niektórych rejonach to solenizant rozdaje prezenty gościom, a nie odwrotnie? Dlatego w dniu naszych 7 urodzin uszanujemy tę tradycję i obsypiemy Was podarkami! Do rozdania mamy 7 retrokonsolek Anbernic RG35xx, abyście i Wy mogli cofnąć się pamięcią do lat młodości.
Co zrobić, aby otrzymać
#excel #makro #office #programowanie
Przy otwarciu pliku wyswietla sie prosty formularz z trzema opcjami: Sheet1, Sheet2, Sheet3. Po wyborze przenosi Cie do wybranego arkusza, a formularz sie zamyka.
W kodzie Combobox (Listy rozwijanej na formularzu) wklejony jest kod - nalezy go zmienic zodnie z potrzebami
Sub UserForm1_Initialize()
With ComboBox1
.AddItem "Sheet1"
.AddItem "Sheet2"
.AddItem "Sheet3"
End With
End Sub
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Sheet1"