Värde i en annan cell

[Sniff]

Hej

Går det att få ett värde i en cell att överföras till en annan cell.

Jag vill kunna skriva in en kod i ex vis A1, som sedan för över det tänkta värdet till A2. A2 får inte ha någon kod.

Går det med ett OM värde eller kan man lägga in detta i Bladets Kod? Med Microsoft visual basic.

Det jag vill göra är att:

Jag har ett datum i A1. I A2 skall detta datum plusas på med 2 dagar.

Jag vill inte ha någon formel i cell A2. Man skall om man vill kunna ändra datumet i cell A2 mauellt.

 

Jag har listat ut detta själv. Behöver därför ingen hjälp

 

Mvh Staffan

 

[inlägget ändrat 2009-01-03 19:38:14 av Sniff]

[Monshi]

..och hur löste du det?

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

[Sniff]

Genom att högerklicka på blad 1. Visa kod.

Sedan kopierade jag in:

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sect As Range

Set sect = Intersect(Target, Range("E:E"))

If Not sect Is Nothing Then

Dim myCell As Range

For Each myCell In sect.Cells

If myCell.Column = 5 Then

If myCell.Value > 0 Then myCell.Offset(0, 1) = Now()

If myCell.Value = "" Then myCell.Offset(0, 1) = ""

End If

Next myCell

End If

End Sub

 

skriv vad som helst i "E" kolumnen och se.

 

[Monshi]

Som jag trodde att du löst det.

 

Tag bara i beaktande att om du har annan kod som arbetar mot bladet, som ändrar på bladet, se då till att stänga av händelsefunktionerna.

 

Application.EnableEvents = False/True

samt likaså då inte glömma att aktivera dem igen.

 

jag brukar vanligtvis skriva att:

Om man kan lösa något med formler ska man det. VBA tar man bara till när det så måste ske, när formler icke duger. Och Excels händelsefunktioner, de ska man verkligen bara använda när nöden så kräver för de är luriga.

 

men du gör rätt, första du gör är att kolla om din kod ska köras, en enkel If-sats som iofs skulle kunna göras än enklare:

If Target.Column = 1 Then

som kanske, troligen, är lite snabbare än Set + If

och en funktion som körs vid varje ändring på ett blad, det är bra om den är snabb.

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.