サイクル中に2つのセルを選択

Question

すべてにご挨拶！

私はVBAで新たなんだ、と私は、アプリケーションをやっていると私は、コードの特定の部分で少し混乱しています、下の表に例を見つけてください：

私のコードでは、各行のセルに基づいてフォルダを作成する必要があります。

B1で始まり、父親か息子かを検証し、父親であれば最初の文字を保存します）、それが "Son"なら "S"をセーブします。

第2に、A1が100の場合、セル値を保存する必要があります。

そして今、私は何をする必要があるかのものは上行く（最後の例のように）名前を\ F100 \ S101、\ S102とActiveWorkbook.pathにフォルダを作成します..です

マイコードはこのようなものですが、私はそれが正しく機能しないことを知っています。

Sub Test() 


Dim rng1 As Range 
Dim rng2 As Range 

Set rng1 = Range("A1") 
Set rng2 = Range("B1").Select 


    Set fso = CreateObject("Scripting.FileSystemObject") 


Do While Not IsEmpty(rng2) 

    If rng2.Value = "Father" Then 
     fso.createFolder (ActiveWorkbook.Path & "\" & rng1.Value2) 

     ElseIf rng2.Value = "Son" Then 
     fso.createFolder (ActiveWorkbook.Path & "\" & rng1.Value2) 

    End If 

    ActiveCell.Offset(1, 0).Select 

Loop 



End Sub 

ありがとう！

Answer 1

のような何か：

Sub Test() 

    Dim rng1 As Range, fso, v 

    Set rng1 = Range("A1") 
    Set fso = CreateObject("Scripting.FileSystemObject") 

    Do While Not IsEmpty(rng1) 

     v = rng1.Offset(0, 1).value 

     If v = "Father" Or v = "Son" Then 

      fso.createFolder (ActiveWorkbook.Path & "\" & _ 
           Left(v, 1) & rng1.Value2) 

     End If 

     Set rng1 = rng1.Offset(1, 0) 

    Loop 

End Sub