Aktywne Wpisy
![AlienFromWenus](https://wykop.pl/cdn/c3397992/AlienFromWenus_d0SsQNbamP,q60.jpg)
AlienFromWenus +11
Jak trzeba mieć zryty beret by wymagać dziewictwa od kobiety?
Odrzucenie każdej nie-dziewicy to zabranianie młodym kobietom bycia szczęśliwą, zakochaną, korzystania z życia i popełniania błędów.
Co innego szlauf mający 30 bolców w rok, a co innego dziewczyna która po prostu była w kilku związkach ale nie wypaliło.
Jeśli komuś nawet druga opcja przeszkadza to musi to być osoba strasznie zakompleksiona i zawistna oraz pozbawiona emocji, logiki, człowieczeństwa.
Znam prawiczków, którym nie
Odrzucenie każdej nie-dziewicy to zabranianie młodym kobietom bycia szczęśliwą, zakochaną, korzystania z życia i popełniania błędów.
Co innego szlauf mający 30 bolców w rok, a co innego dziewczyna która po prostu była w kilku związkach ale nie wypaliło.
Jeśli komuś nawet druga opcja przeszkadza to musi to być osoba strasznie zakompleksiona i zawistna oraz pozbawiona emocji, logiki, człowieczeństwa.
Znam prawiczków, którym nie
![kontodlabeki](https://wykop.pl/cdn/c3397992/kontodlabeki_Jewf3YMrqd,q60.jpg)
kontodlabeki +76
chłop doda zdjecie klaty: ok
ja dałam kawałek kolana i to ubranego i jestem atencyjnym szonem, eh wykopki co mam powiedzieć, żałośni jesteście ogółem
ja dałam kawałek kolana i to ubranego i jestem atencyjnym szonem, eh wykopki co mam powiedzieć, żałośni jesteście ogółem
Potrzebuję napisać makro które będzie kasować zawartość (tylko tekst) komórki w kolumnie A jeżeli komórka w B będzie pusta. Ma działać tak że jeśli skasuje zawartość B5 to A5 też zniknie.
Pomórzcie proszę bo bardzo tego potrzebuję
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("b5")) Is Nothing) Then
If IsEmpty(Range("b5").Value) Then
Application.EnableEvents = False
Range("a5").Clear
Application.EnableEvents = True
End If
End If
End Sub
@brak_nicku:
A da się tak aby to działało nie tylko z raz? to działa przy zmianie na raz jednej komórki w B5 a gdy zmieniam wiecej to nie
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rColB As Range, rCell As Range
Set rColB = Intersect(Target, Range("b5:b36"))
If Not (rColB Is Nothing) Then
On Error GoTo CleanExit
Application.EnableEvents = False
For Each rCell In rColB
If IsEmpty(rCell) Then
rCell.Offset(0, -1).Clear
End If
Next
End If
CleanExit:
Application.EnableEvents = True
End Sub