Если ячейка пуста, заполните текстовые данные других ячеек

Question

Это, вероятно, просто для вас, экспертов. Я пробовал так много способов, и во многих местах с кодом, но ни один из них не работает для меня. Пожалуйста помоги!

Все, что я пытаюсь сделать, это получить данные из КЛЕТОЧНЫЙ ДИАПАЗОН B4: B4000 для автоматического копирования в КЛЕТОЧНЫЙ ДИАПАЗОН J4: J4000 должен Диапазон ячеек J4: J4000 be пусто .

К вашему сведению: данные вводятся через форму пользователя.

Option Explicit

Private Sub CmdButton_CONTINUE1_Click() 

Dim TargetRow As Integer
Dim FullName As String   'Variable for FULL NAME = CELL RANGE J4:J4000
Dim QBFileName As String   'Variable Quick Books File Name = CELL RANGE B4:B4000
Dim UserMessage As String

FullName = Txt_Client_First_Name & " " & Txt_Client_LAST_Name
QBFileName = Txt_QB_File_Name

'begin check if EDIT or ADD New Entry Mode
If Sheets("Engine").Range("B4").Value = "NEW" Then  'ADD New Entry Mode


'BEGINS VALIDATION CHECK: IF in "ADD New Entry Mode" mode to prevent duplicate FULL NAME J Column entries

If Application.WorksheetFunction.CountIf(Sheets("Database").Range("J3:J4000"), FullName) > 0 Then

MsgBox "Client's Full Name already exists", 0, "Check" 
Exit Sub 

End If  'ends validation check OF Duplicate FULLNAME (J Column)


'BEGINS VALIDATION CHECK: IF in "ADD New Entry Mode" to prevent duplicate QBFileName B Column entries

If Application.WorksheetFunction.CountIf(Sheets("Database").Range("B3:B4000"), QBFileName) > 0 Then

MsgBox "QuickBooks File Name already exists", 0, "Check" 
Exit Sub 

End If
~~~~

Answer 1

MUMPS в Озгриде решили это!

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1216775-if-a-cell-is-blank-fill-with-other-cell%C2%92s-text-data

ДА !!!СПАСИБО MUMPS!

Answer 2

Private Sub CmdButton_CONTINUE1_Click()

Dim TargetRow As Integer
Dim FullName As String   'Variable for FULL NAME = CELL RANGE J4:J4000
Dim QBFileName As String   'Variable Quick Books File Name = CELL RANGE B4:B4000
Dim UserMessage As String

FullName = Txt_Client_First_Name & " " & Txt_Client_LAST_Name
QBFileName = Txt_QB_File_Name

'begin check if EDIT or ADD New Entry Mode
If Sheets("Engine").Range("B4").Value = "NEW" Then  'ADD New Entry Mode


'BEGINS VALIDATION CHECK: IF in "ADD New Entry Mode" mode to prevent duplicate FULL NAME J Column entries

If 1 + UBound(Split(Application.Trim(Replace(Replace(Join(Application.Transpose(Range("J3:J4000")), Chr(1)), " ", Chr(2)), Chr(1), " ")))) > 0 Then

MsgBox "Client's Full Name already exists", 0, "Check"
Exit Sub

End If  'ends validation check OF Duplicate FULLNAME (J Column)


'BEGINS VALIDATION CHECK: IF in "ADD New Entry Mode" to prevent duplicate QBFileName B Column entries

If 1 + UBound(Split(Application.Trim(Replace(Replace(Join(Application.Transpose(Range("B3:B4000")), Chr(1)), " ", Chr(2)), Chr(1), " ")))) > 0 Then

MsgBox "QuickBooks File Name already exists", 0, "Check"
Exit Sub

End If

End Sub