いつもありがとうございます。
https://okwave.jp/qa/q9586463.html
この質問のコードを自力で実務用に改変中です。
GetShe.Range(Cells(RowCnt, 1), Cells(RowCnt, 2)).Copy PutShe.Cells(PutRowCnt, 1)
↑このコードでRangeメソッドが失敗しましたというエラーが出るのですが、超初心者のため、原因がわかりません。
GetSheシートのRowCnt行の1列目と2列目をコピーして、PutSheシートのPutRowCnt行の1列目に貼り付けしたいです。
○番目のシート、行という意味です。
お願いします。
Sub msukei6()
' 変数を宣言
Dim GetShe As Worksheet
Dim PutShe As Worksheet
Dim SheCnt As Long
Dim RowCnt As Long
Dim ColCnt As Long
Dim PutRowCnt As Long
Dim x As Long
' このブックに何シートあるか調べる
SheCnt = ThisWorkbook.Worksheets.Count
' "集計"シートが抽出先である
Set PutShe = ThisWorkbook.Worksheets("集計")
PutRowCnt = 9
For SheCnt = 4 To 6
' コピー元は4シート目～6シート目
Set GetShe = ThisWorkbook.Worksheets(SheCnt)
' 各シートの氏名をカウントする
x = WorksheetFunction.CountA(GetShe.Range("b3:b100"))
Do
For RowCnt = 3 To x + 3
' コピー元は3行目からコピーする
If GetShe.Cells(RowCnt, Worksheets("集計").Cells(4, 2)) <> "" Then
PutRowCnt = PutRowCnt + 1
GetShe.Range(Cells(RowCnt, 1), Cells(RowCnt, 2)).Copy PutShe.Cells(PutRowCnt, 1)
End If
Next RowCnt
Exit Do
Loop
Next SheCnt
End Sub
VBA初心者です。
同じセルに数字を入れて足し算して行きたいんですが！
下記のVBA見つけたのですが、A1に数字を入れて答えがE1に出るんですが、同じ事を
A2、A3、A4、A5答えもE2、E3......で増やしたいのですが、どうするか分かりません。
どなたか教えてください。
宜しくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim inp, outp As String
inp = "$A$1"
outp = "E1"
Application.EnableEvents = False
If Target.Address = inp Then
Range(outp).Value = Range(outp).Value + Target.Value
If Target.Value <> "" Then
ActiveCell.Offset(-1, 0).Select
Else
Range(outp).Value = 0
End If
End If
Application.EnableEvents = True
End Sub
