macro: hvis celle ikke er tom

skriv i C1:
= if(B1<>"",A1+5,"")

denne kan du saa kopiere nedad

Tak! - men det er en macro jeg skal bruge, da det skal gøres vær uge på 5 excelark med mange 1000 rækker i vær.

P.S.: Det er Excel 2000

Hvordan ved du (makroen) hvor  mange rækker der er? Står de alle fortløbende, altså uden tomme rækker mellem? kommer der flere rækker under, som der ikke skal skrives i?

ok

lav to subs. Den ene skal koere flg princip

sub CopyDown (NoRows)

dim i as integer

for i = 1 to norows
    if range("b" & i) <>"" then
          range("c" & i) = range("a" & i) + 5
    end if
next i

end sub


I den anden sub korer du saa arkvalg og antal raekker

f.eks

sub Runemall()

sheet1.select
Module1.CopyDown(5000)
sheet2.select
Module1.CopyDown(15000)

end sub

Begge koder kna laegges i samme modul (her kaldet Module1)

Her har du en løkke der selv finder ud af hvor mange celler der er.

  Range("A1").Select
  Do Until IsEmpty(ActiveCell)
    ... den kode der skal køre på den enkelte linje ...
    ActiveCell.Offset(1,0).Select
  Loop

eller bare
Sub summer()
Application.ScreenUpdating = False
For a = 1 To InputBox(antalrækker)
If Cells(a, 2) = "" Then
Cells(a, 3) = Cells(a, 1) + 5
End If
Next
End Sub

Omvendt sføli :
Sub summer()
Application.ScreenUpdating = False
For a = 1 To InputBox(antalrækker)
If Cells(a, 2) <> "" Then
Cells(a, 3) = Cells(a, 1) + 5
End If
Next
End Sub

jkrons: de er alle fortløbende, og uden tomme rækker mellem! Der kommer ikke flere rækker under.

Prøv med:

Sub IndsætVærdi()
If IsEmpty(Range("b1")) Then
For Each c In ActiveSheet.UsedRange.Columns("c:c").Cells
c.Value = Range("a1") + 5
Next c
End If
End Sub

eller :
Sub summer()
Application.ScreenUpdating = False
For a = 1 To 60000
If Cells(a, 1) = "" Then
Exit Sub
ElseIf Cells(a, 2) <> "" Then
    Cells(a, 3) = Cells(a, 1) + 5
End If
Next
End Sub
Prøv med:

jkrons-> skulle den ikke have set sådan ud ?  :-)
Sub IndsætVærdi()
For Each c In ActiveSheet.UsedRange.Columns("c:c").Cells
If IsEmpty(Range("b1")) Then c.Value = Range("a1") + 5
Next c
End If
End Sub

Sorry sikke da noget fjollet noget at skrive, jeg læste jo ikke spm. :-(((

:-)

Denne indsæter formlen =A1+5 i kolonne c, hvis B er tom

Sub indsætværdi2()
Range(Cells(1, 1), Cells(Range("a64000").End(xlUp), 1)).Offset(0, 2).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-2]+5"
End Sub

Jeg kan ikke få jkrons til at virke uden at korrigere til :
Sub IndsætVærdi()
If IsEmpty(Range("b1")) Then
For Each c In ActiveSheet.UsedRange.Columns("b:b").Cells
Dim a As Range
Set a = Range(c.Address)
If c.Value <> "" Then
    a(1, 2) = a(1, 0) + 5
End If
Next c
End If
End Sub

Jeg må stoppe for idag. jeg bliver ved med at vrøvle. Glem mine indlæg 
Hvorfor er der ikke en edit-funktion her så man kan redigere sine indlæg eller slette dem......

bak-> Sådan en savner jeg også.

aheiss-> Din version tester om b-cellen i hver række er tom, men det blev der ikke bedt om. Spørgsmålet gik på at indsætte i alle rækker, hvis B1 ikkevar tom., ikke b i de enkelte rækker.
Og det gør min løsning.

jkrons - OK sådan læser jeg det ikke. Jeg synes det er et eksempel fra række 1, som så også skal gælde i række 2 osv. I din kode vil du i øvrigt altid indsætte samme tal, nemlig A1 + 5

Sådan. Nu "tror" jeg at det er rigtigt

Sub IndsætVærdi()
Range(Cells(1, 1), Cells(Range("a64000").End(xlUp), 1)).Offset(0, 1). _
      SpecialCells(xlCellTypeBlanks).Offset(0, 1).FormulaR1C1 = "=RC[-2]+5"
End Sub

Ja, altid det samme tal, for jeg opfattede det ikke som et eksempel.

1000 tak for hjælpen alle sammen!

jkrons -> bak og aheiss har ret i at eksemplet kun gælder første række.

Det jeg skulle bruge, var en kombo af thor.ostergaard's og aheiss' (14:43:08) svar. Hvis i opretter nogle svar får i points.

Det er lidt svært når du allerede har accepteret et svar.
Syntes i øvrigt, at alle der har bidraget bør have points.

Det er jeg ked af - det er første gang jeg bruger systemet, jeg accepterede med 5 og 15 points og troede at jeg kunne gi´ resten senere. :-(

Nu ved jeg det.

De bedste hilsner
Q

thor.ostergaard-> Du kan bare få nogen af de point, jeg har fået. Jeg havde jo alligevel misforstået spørgsmålet.