Makro birleştirme

[Mehmet Sait]

Ekteki dosyada bulan SQL sayfasından verileri alırken genel listede tarih sırasında (Eskiden - Yeniye ) sıralama yapması için aşağıdaki kodu " Düğme 1 " ile nasıl birleştirebilirim ?

Sub Emre()
Range("B4:G500").Sort Range("D3"), 1
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub listele()
With Sayfa3
i = .Range("B65536").End(3).Row
Sayfa2.Range("B4:G1000").ClearContents
.Range("B4:G100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("I4:N100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("P4:U100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("W4:AB100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
End With
i = Empty

[B][COLOR="Red"]Range("B4:G500").Sort Range("D3"), 1[/COLOR][/B]

End Sub

. . .

 

[Mehmet Sait]

. . .

Sub listele()
With Sayfa3
i = .Range("B65536").End(3).Row
Sayfa2.Range("B4:G1000").ClearContents
.Range("B4:G100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("I4:N100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("P4:U100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("W4:AB100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
End With
i = Empty

[B][COLOR="Red"]Range("B4:G500").Sort Range("D3"), 1[/COLOR][/B]

End Sub

. . .

Merhaba Hocam,

Maalesef olmadı bi yerde çakışmamı var çözemiyorum

 

[Mehmet Sait]

'-----------------------------------------------------------
' SQL sayfasındaki verileri listeye almak için
'-----------------------------------------------------------
With Sayfa3
i = .Range("B65536").End(3).Row
Sayfa2.Range("B4:G1000").ClearContents
.Range("B5:G100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("I5:N100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("P5:U100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("W5:AB100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("AD5:AI100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("AK5:AP100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("AR5:AW100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
.Range("AY5:BD100" & i).Copy
Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
End With
i = Empty
'-----------------------------------------------------------
' Listedeki Verileri Tabloya Eklemek için
'-----------------------------------------------------------
listeye alınan verileri tabloya almadan önce, tarih sırasında sıraladıktan sonra tabloya getirmesi için

" Range("B4:G500").Sort Range("D3"), 1 " kodunu nasıl eklemeliyim ?

a = 12: b = 28: c = 12: d = 28
With Sayfa2
For i = 4 To .Range("B65536").End(3).Row
If .Cells(i, "G") Like "B*" Then
.Cells(i, 2).Resize(, 5).Copy
Sayfa1.Cells(a, 5).PasteSpecial xlValue
a = a + 1
End If
If .Cells(i, "G") Like "C*" Then
.Cells(i, 2).Resize(, 5).Copy
Sayfa1.Cells(b, 5).PasteSpecial xlValue
b = b + 1
End If
If .Cells(i, "G") Like "T*" Then
.Cells(i, 2).Resize(, 5).Copy
Sayfa1.Cells(c, 21).PasteSpecial xlValue
c = c + 1
End If
If .Cells(i, "G") Like "P*" Then
.Cells(i, 2).Resize(, 5).Copy
Sayfa1.Cells(d, 21).PasteSpecial xlValue
d = d + 1
End If
Next i
End With
i = Empty