Как добавить текст в указанные c ячейки, уже содержащие текст с учетом определенных критериев? - PullRequest
Новая
       50

Как добавить текст в указанные c ячейки, уже содержащие текст с учетом определенных критериев?

0 голосов
/ 30 января 2020

Изображение рабочего листа

Я хочу добавить текст LAURA в столбец E перед существующим текстом в столбце, когда он будет скопирован на целевой лист: 

Private Sub CommandButton1_Click()

Dim wsSource, wsTarget As Worksheet
Dim i, iLastSource, iRowTarget, count As Long
Dim cell As Range

Set wsSource = Worksheets("Stig Jan")
iLastSource = wsSource.Cells(Rows.count, 1).End(xlUp).Row

Set wsTarget = Worksheets("Laura Jan")

count = 0
With wsSource
iRowTarget = wsTarget.Cells(Rows.count, 1).End(xlUp).Row + 1
For i = 36 To iLastSource
  Set cell = .Cells(i, 4)
  If cell.Font.Bold = False Then
    If cell.Value = "Fælles" Or cell.Value = "Lagt Ud" Then
      wsTarget.Range("A" & iRowTarget & ":H" & iRowTarget).Value = .Range("A" & i & ":H" & i).Value
      wsTarget.Range("D" & iRowTarget).ClearContents
      **wsTarget.Range("E" & iRowTarget).Value = "LAURA. " & cell.Value**
      iRowTarget = iRowTarget + 1
      count = count + 1
    End If
  End If
    If cell.Value = "Fælles" Or cell.Value = "Lagt Ud" Then
    wsSource.Rows(i).Columns("D").Font.Bold = True
    End If
    Next

По состоянию на теперь он копирует значение в столбце D. Итак, LAURA + Колонка D

...