Selamlar
siteden aldığım aşağıdaki kodu iki ayrı modüle, butonlarla, ayrı ayrı ilave ettim..
sayfa 1 den MRT-I ve MRT-II sayfalarına" h " sütununda, MRT-I ve MRT-II olarak ayrılmış satırları, MRT-I ve MRT-II sayfalarına çekmek istiyorum...
Ancak ayrım yapmadan neredeyse sayfa1 in tamamı, hem MRT-I sayfasına hemde MRT-II sayfasına geliyor....
( MRT-I ve MRT-II karakterleri bu şekilde...rakam değil harf olarak atanmış şekildedir)
KOD:
Dim sv As Worksheet
Dim i As Long
Dim j As Long
Set sa = Sheets("Sayfa1")
Set sv = Sheets("MRT-II")
j = 1
sa.Select
For i = 2 To [A65536].End(3).Row
If Cells(i, "H") Like "MRT-II" Then
j = j + 1
Range("A" & i & ":CZ" & i).Copy sv.Cells(j, "A")
End If
Next i
MsgBox "Aktarım Bitmiştir...", vbInformation, "www.excel.web.tr"
End Sub
saygılar
siteden aldığım aşağıdaki kodu iki ayrı modüle, butonlarla, ayrı ayrı ilave ettim..
sayfa 1 den MRT-I ve MRT-II sayfalarına" h " sütununda, MRT-I ve MRT-II olarak ayrılmış satırları, MRT-I ve MRT-II sayfalarına çekmek istiyorum...
Ancak ayrım yapmadan neredeyse sayfa1 in tamamı, hem MRT-I sayfasına hemde MRT-II sayfasına geliyor....
( MRT-I ve MRT-II karakterleri bu şekilde...rakam değil harf olarak atanmış şekildedir)
KOD:
Dim sv As Worksheet
Dim i As Long
Dim j As Long
Set sa = Sheets("Sayfa1")
Set sv = Sheets("MRT-II")
j = 1
sa.Select
For i = 2 To [A65536].End(3).Row
If Cells(i, "H") Like "MRT-II" Then
j = j + 1
Range("A" & i & ":CZ" & i).Copy sv.Cells(j, "A")
End If
Next i
MsgBox "Aktarım Bitmiştir...", vbInformation, "www.excel.web.tr"
End Sub
saygılar