|
すいません、Statisさん ちくたくさん かみちゃんさん
Statisさんの回答で無事解決しました。本当にありがとうございました。
お手数おかけしました。
また、機会があればよろしくお願いします。
▼Statis さん:
>▼tbtk さん:こんにちは
>>▼ちくたく さん:
>>>お返事ありがとうございます
>>If msg1 = vbYes Then
>> cnta = WorksheetFunction.CountA(Range("c1:az1"))
>> cnta = cnta + 3
>>
>> Cells(1, cnta) = text1
>> Cells(2, cnta) = text2
>>
>>
>> Unload addform
>>
>> Else
>> .TextBox1 = ""
>> .TextBox2 = ""
>> End If
>> End With
>>今は上記のコードになっています。
>
>
>シート名の指定が無いためアクティブシートに記載されるのでは
>
>cnta = WorksheetFunction.CountA(Worksheets("該当シート名").Range("c1:az1"))
>With Worksheets("Sheet1")
> .Cells(1, cnta).Value = text1
> .Cells(2, cnta).Value = text2
>End With
>With Worksheets("Sheet2")
> .Cells(1, cnta).Value = text1
> .Cells(2, cnta).Value = text2
>End With
|
|