For next ja solun kopiointimakro- ei toimi??

aloittelija kirjoitti:

Yritän saada tietyssä sarakkeessa olevat solut korvattua toisessa sarakkeessa samalla rivillä olevalla solulla. Myöhemmin pitäisi vielä lisätä ehto, että jos täyttää tietyn kriteerin, niin silloin solu kopioituu. Mutta kunhan nyt edes saisi tämän yksinkertaisen toimimaan.. Osaako kukaan auttaa mikä tässä mättää? Makro tyssää kohtaan If Cells(i, eka) = "xxx" Then

Sarakkeiden otsikot ovat siis Name ja applicant, Name -tieto pitäisi kopioitua applicant -sarakkeeseen samalle riville. xxx tieto löytyy Name -sarakkeesta

(Taulukossa rivimäärät vaihtuvat.)

Sub copy__name()

Dim i As Variant
Dim rivit As Variant
Dim rivimaara As Variant
Dim j As Variant
Dim eka As Variant
Dim toka As Variant
Dim kolmas As Variant
Dim sarakkeet As Variant


Application.ScreenUpdating = False

sarakkeet = Range("A1").CurrentRegion.Columns.Count

For j = sarakkeet To 1 Step -1

If Cells(2, j) = "Name" Then
eka = j
ElseIf Cells(2, j) = "applicant" Then
toka = j
End If

Next j

rivit = Range("A2").CurrentRegion.Rows.Count
sarakkeet = Range("A2").CurrentRegion.Columns.Count

rivimaara = rivit 1

For i = 3 To rivit Step 1

If Cells(i, eka) = "xxx" Then
Cells(i, toka) = Cells(i, eka)

End If

Next i

Application.ScreenUpdating = True

End Sub

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä