- Katılım
- 18 Mart 2007
- Mesajlar
- 164
- Excel Vers. ve Dili
- 2003 Türkçe
Option Explicit
Private Sub Worksheet_Activate()
Dim sat As Byte, hucre As Range
sat = 4
Sheets("GENEL LİSTE").Range("A1:L65536").ClearContents
For Each hucre In Sheets("3.SINIF").[A4:K2000]
If hucre.Value <> "" Then
Sheets("GENEL LİSTE").Range("A" & sat).Value = hucre.Value
sat = sat + 1
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
ÜSTATLAR BEN MAKRO BİLMİYORUM AMA YUKARIDAKİ MAKRO VERİLERİ ÇEKİYOR BİR SAYFA İÇİN VE HEPSİNİ A SUTÜNA YAZIYOR SATIRA YAZDIRMAK LAZIM MAKROYU DÜZELTİP 3.SINIF 4.SINIF 5.SINIF 6.SINIF 7.SINIF 8.SINIF LİSE1 LİSE2 SAYFALARI İÇİN ÇOĞALTIP SATIR SATIR YAZDIRMAK LAZIM CİDDEN NASIL YAPILDIĞINI BİLMİYORUM İLGİLENİRSENİZ SEVİNİRİM.....İYİ ÇALIŞMALAR
Private Sub Worksheet_Activate()
Dim sat As Byte, hucre As Range
sat = 4
Sheets("GENEL LİSTE").Range("A1:L65536").ClearContents
For Each hucre In Sheets("3.SINIF").[A4:K2000]
If hucre.Value <> "" Then
Sheets("GENEL LİSTE").Range("A" & sat).Value = hucre.Value
sat = sat + 1
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
ÜSTATLAR BEN MAKRO BİLMİYORUM AMA YUKARIDAKİ MAKRO VERİLERİ ÇEKİYOR BİR SAYFA İÇİN VE HEPSİNİ A SUTÜNA YAZIYOR SATIRA YAZDIRMAK LAZIM MAKROYU DÜZELTİP 3.SINIF 4.SINIF 5.SINIF 6.SINIF 7.SINIF 8.SINIF LİSE1 LİSE2 SAYFALARI İÇİN ÇOĞALTIP SATIR SATIR YAZDIRMAK LAZIM CİDDEN NASIL YAPILDIĞINI BİLMİYORUM İLGİLENİRSENİZ SEVİNİRİM.....İYİ ÇALIŞMALAR