VBA 特定のセルからoffsetされたセルの値を変数に代入したい

現在開いているブックの任意のセルからoffsetされたセルの値を変数に代入したいのですがうまくいきません。
現在開いているブックをbook1とし、book2に変数goに入る値によって変更したいシート（sheet1,
sheet2）二枚のサンプルシートを準備。
仮にbook1のS19（変数goに入る値）が1の場合、book2のsheet1（go=2であればsheet2
を）コピーしコピーした該当セルに各変数に入っている値を転記するマクロを作りたいと思っています。
本来であれば変数が多くなったりとあまり良くない方法でしょうから配列等を使った方が良いのかもしれませんが、そこまで自分の技術がないこと・変数の値によってbook2への処理が変わることから多くの変数を作っています。
下記コードは一部抜粋ではありますが躓いている部分のコードになります。
変数coのところで止まってしまうのですがcoをdo以下のようにrangeでセル位置を固定した場合はうまくいきました。
ただ業務上セルの位置が都度変更となるため、book1の任意のセルを選びそのセルからoffsetされたセルの値を変数に代入しようと以下（coの部分のみ）書き換えたところうまくいかなく（コンパイルエラー：メソッドまたはデータメンバーが見つかりません）なりました。

Set wb1 = ThisWorkbook
Set sh1 = ActiveSheet

'選択した荷主セルを基準に各変数へ各値を代入
With sh1
co = .ActiveCell.Offset(2, -17).Value
do = .Range("D19").Value
no = .Range("E18").Value & Range("E19").Value & Range("F19").Value
tel = .Range("D18").Value
ld = .Range("U4").Value
dd = .Range("Z18").Value
go = .Range("S19").Value
End With

初心者ですので「セルの指定を基準セルからのoffsetで指定すればいいんだ！」と考えてしまったのですが違ったようで…。
お手数ではありますがコード意味等を付けて頂くと非常に助かります。

ご指導よろしくおねがいします！

No.1 回答者： ppp2122 回答日時： 2020/11/03 19:56

意味不明です

変数に配列とありますが
規則性がないもに　配列を使ってどうするんですか？
規則性が無ければ　ループで格納する事が出来ません

No.2 回答者： fujillin 回答日時： 2020/11/03 20:52

こんばんは

環境がないので確認していませんが、
＞.ActiveCell
のドットを外して
　ActiveCell
にしてみてはいかがでしょうか？

この回答へのお礼

貴重なご意見ありがとうございます。
残念ながらドットを外してみたものの変化はありませんでした。
結果はともかく何とかしようとして下さるお気持ちに、心より感謝いたします。
ありがとうございました！

お礼日時：2020/11/03 22:51

No.3 回答者： fujillin 回答日時： 2020/11/03 23:18

No2です。

＞残念ながらドットを外してみたものの変化はありませんでした
あらら…失礼いたしました。
ActiveCellってRangeとは違うのですかねぇ・・

今、環境がないので確認はできないのですが、それなら、Rangeに置き換えてしまえばうまく行くのではないでしょうか。（多分）
　.Range(ActiveCell.Address).Offset(2, -17).Value
ではいかがでしょうか？

Offset先のセルが存在する（シート外になっていない）ことが条件ですけれど。

この回答へのお礼

お時間を取らせてすみません。
ご指導頂いた通りに変更してみたのですがダメでした。
現在書いているコード（.range(activecell .address)へ変更しています）は以下のようなものです。
実績を入力するブックから連絡表に必要なデータを取り出しプリントアウトするのが目的となります。

Dim wb1 As Workbook, wb2 As Workbook '実績を入れる変数
Dim sh1 As Worksheet, sh2 As Worksheet '連絡表のシート操作時のシートを入れる変数
Dim co As String '会社名を入れる変数
Dim do As String '作業名を入れる変数
Dim no As String '作業Noを入れる変数
Dim tel As String '携帯Noを入れる変数
Dim ld As Date '入荷日を入れる変数
Dim dd As Date '納品日を入れる変数
Dim go As String '納品先を入れる変数

Set wb1 = ThisWorkbook
Set sh1 = ActiveSheet

'選択した荷主セルを基準に各変数へ各値を代入
With sh1
co = .Range(ActiveCell.Address).Offset(2, -17).Value
do = .Range("D19").Value
no = .Range("E18").Value & Range("E19").Value & Range("F19").Value
tel = .Range("D18").Value
ld = .Range("U4").Value
dd = .Range("Z18").Value
go = .Range("S19").Value
End With

お礼日時：2020/11/04 00:49

No.4 ベストアンサー 回答者： fujillin 回答日時： 2020/11/04 08:39

No3です。

＞ご指導頂いた通りに変更してみたのですがダメでした。
　・・・？？？？
おかしいと思って、こちらでもちゃんと試してみました。

ご提示の
＞.ActiveCell.Offset(2, -17).Value
ではエラーになりますが、No2、No3の
　co = ActiveCell.Offset(2, -17).Value
　co = .Range(ActiveCell.Address).Offset(2, -17).Value
であれば、どちらも動作します。
（No3はまわりくどいので、No2の方が良いでしょう）

No3にも書いておきましたけれど、Offsetの結果が無効なアドレスになっていませんか？
ActiveCellがＲ列よりも大きな列番号になければ、当然の結果としてエラーになります。

例えば、coに値を代入する前に
　If ActiveCell.Column < 18 Then MsgBox "列番号が小さすぎ"
の一行を入れておけば、簡単なチェックになりますけれど、これに引っかかっていたりするのでは？？
（もしそうなら、そもそものテスト方法がおかしいとも言えますが…）

この回答へのお礼

fujillinさんありがとうございました。
再度offsetさせる数を数えなおしたところ、ご指摘にあった通り列番号の数え間違いでした。
初歩的なミスでお時間を取らせてしまいすみません。
また私の初歩的質問にも温かくご対応頂きありがとうございました。
ここに質問に来る方は私を含めみなさんわからないから質問に来るのであって、fijillinさんのように温かく投げださず教えてくれる方が居ることは非常に有難く心強く感じます。
今後も質問をさせて頂く事と思いますが、見かけたときはまたご教授頂ければ幸いです。
今後ともよろしくお願いします。
ありがとうございました。

お礼日時：2020/11/04 21:07