Aktywne Wpisy
źródło: 1000004468
Pobierz
Cześć, mam taką sprawę spadkową, która toczy się w sądzie.
Moja babcia prawie 87 lat ma dom, który należy mi się według prawa w jednej z części. Babci została aktualnie tylko jedna córka, która z nią mieszka w tym domu. Babcia z ciotką zagrała nie fair i przed wysłaniem pierwszego pisma przyszli do mnie i kazali mi się zrzec domu, bo uważali że mi się nic nie należy, co jest oczywistym kłamstwem. Po czym wystosowali pismo do sądu.
Przepychamy się już czwartym pismem z sądu między sobą. Sprawa stanęła na tym, że ja tam wnioskuję o ugodę na X kwotę, ale babcia twierdzi że nie ma z czego spłacić. Chociaż uwazam że to jest kłamstwo, bo żyją dosyć bogato, a córka jej tez także majętna, chociaż tutaj ciotka nie ma nic do rzeczy, bo wnioskodawczynią jest babcia.
To
Moja babcia prawie 87 lat ma dom, który należy mi się według prawa w jednej z części. Babci została aktualnie tylko jedna córka, która z nią mieszka w tym domu. Babcia z ciotką zagrała nie fair i przed wysłaniem pierwszego pisma przyszli do mnie i kazali mi się zrzec domu, bo uważali że mi się nic nie należy, co jest oczywistym kłamstwem. Po czym wystosowali pismo do sądu.
Przepychamy się już czwartym pismem z sądu między sobą. Sprawa stanęła na tym, że ja tam wnioskuję o ugodę na X kwotę, ale babcia twierdzi że nie ma z czego spłacić. Chociaż uwazam że to jest kłamstwo, bo żyją dosyć bogato, a córka jej tez także majętna, chociaż tutaj ciotka nie ma nic do rzeczy, bo wnioskodawczynią jest babcia.
To
Ma on mnożyć i dodawać wartości różnych komórek do komórki E11 zależnie od jej wartości.
Private Sub CommandButton1_Click()
Dim KOSZT As Integer
KOSZT = Range("C11").Value
If KOSZT < 100 Then
Range("E11").Value = KOSZT * Range("D4").Value
Else
If 100 <= KOSZT <= 1000 Then
Range("E11").Value = (KOSZT * Range("D5").Value) + Range("E5").Value
Else
If 1000 <= KOSZT <= 5000 Then
Range("E11").Value = (KOSZT * Range("D6").Value) + Range("E6").Value
Else
If 5000 < KOSZT Then
Range("E11").Value = (KOSZT * Range("D7").Value) + Range("E7").Value
End If
End Sub
Kod dodałem przez "Insert command button(activex controll) > view code"
Normalnie nie programuję w VBA, więc na 90% składnia.
halp.
#programowanie #vba
"Compile error:
Block If without End If"
Dziękuję Pan zakopywacz.