別のセルからセルの値を自動入力する

Question

データの検証で「はい」と表示された場合、セルの値を自動入力しようとしています。基本的には、連絡先アドレスがサイトアドレスと同じであれば、サイトアドレスを連絡先アドレスにプルします。

は、これまでのところ、私はこのコードを試してみました：

Sub PopulateSite() 

Dim SiteName As Long 
Dim Address1 As Long 
Dim Address2 As Long 
Dim Town As Long 
Dim County As Long 
Dim Postcode As Long 
SiteName = Sheets("HV.Select Site Set Up").Range("E7") 
Address1 = Sheets("HV.Select Site Set Up").Range("E17") 
Address2 = Sheets("HV.Select Site Set Up").Range("E19") 
Town = Sheets("HV.Select Site Set Up").Range("E21") 
County = Sheets("HV.Select Site Set Up").Range("E23") 
Postcode = Sheets("HV.Select Site Set Up").Range("E25") 

If Sheets("HV.Select Site Set Up").Range("G29") = "Yes" Then 
Sheets("HV.Select Site Set Up").Range("E31") = SiteName 
Sheets("HV.Select Site Set Up").Range("E41") = Address1 
Sheets("HV.Select Site Set Up").Range("E43") = Address2 
Sheets("HV.Select Site Set Up").Range("E45") = Town 
Sheets("HV.Select Site Set Up").Range("E47") = County 
Sheets("HV.Select Site Set Up").Range("E49") = Postcode 
End If 

End Sub 

これ、いくつかの未知の理由で、機能していません。誰か助けてくれますか？

Answer 1

あなたの型宣言（私は変数名に基づいていると仮定しています）は間違っています。私はこれらの値のほとんどがString型（Longは数値整数に使用されている）だと推測しています。したがって、型宣言をAs Stringに変更すると、必要に応じて機能するはずです。