Merhaba Arkadaşlar.
sayfa1den sayfa2 ye aşağıdaki kola veri aktarırken alfabetik sıray göre sayfa2de göstermesini bir türlü yapamadım. Ayrıca aynı buttunla birden fazla veri aktarılırmı?
Private Sub CommandButton1_Click()
For a = 1 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("a1:a" & a), Sheets("sayfa1").Cells(a, 1).Value) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Sheets("sayfa1").Cells(a, 1).Value
End If
Next a
End Sub
Bu Makroları değerli değerli formunuzdan aldım.Teşekkürler.
Excel-2003 Türkçe
sayfa1den sayfa2 ye aşağıdaki kola veri aktarırken alfabetik sıray göre sayfa2de göstermesini bir türlü yapamadım. Ayrıca aynı buttunla birden fazla veri aktarılırmı?
Private Sub CommandButton1_Click()
For a = 1 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("sayfa1").Range("a1:a" & a), Sheets("sayfa1").Cells(a, 1).Value) = 1 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Sheets("sayfa1").Cells(a, 1).Value
End If
Next a
End Sub
Bu Makroları değerli değerli formunuzdan aldım.Teşekkürler.
Excel-2003 Türkçe