Arkadaşlar bir excel çalışma sayfam var, çalışma sayfamda "2008 sorgu, 2008 insan kaynakları, 2008 muhasebe, 2008 nöbetçi amirliği, 2008 destek, 2008 istatistik ve 2009 sorgu, 2009 insan kaynakları, 2009 muhasebe, 2009 nöbetçi amirliği, 2009 destek, 2009 istatistik" adında sayfalarım var, 200 sorgu ekranında CommandButton1 butonu ile 2008 yılına ait sayfalardan istatistik hariç sorulama yapmata idim. 2009 yılına geçtikten sonra aynı sayfaları 2009 olarak oluşturdum. bu sayfalara ilgili bürolar tarafından veriler girilmektedir. 2009 sorgu ekranına da aynı kodları yazdım. ancak 2009 verilerini aldıramamatayım. Hala 2008 verilerinden bilgi almakta, aşağıdaki kodları nasıl revize etmem gerekir. Teşekkürler
Private Sub CommandButton1_Click()
Dim hcr As Range, son As Integer, hcrr As Range, j As Integer, i As Integer, k As Integer
Set hcr = Sayfa1.Range("A1")
son = 4
Application.ScreenUpdating = False
Sayfa1.Range("A4:L500").ClearContents
For j = 2 To 7
For i = 3 To 500
If Sheets(j).Cells(i, 2) = hcr Then
Set hcrr = Sheets(j).Cells(i, 2)
For k = 2 To 12
Cells(son, "A") = son - 3
Cells(son, k) = hcrr.Offset(0, k - 2)
Next k
son = son + 1
End If
Next i
Next j
Set hcr = Nothing
Set hcrr = Nothing
End Sub
Private Sub CommandButton1_Click()
Dim hcr As Range, son As Integer, hcrr As Range, j As Integer, i As Integer, k As Integer
Set hcr = Sayfa1.Range("A1")
son = 4
Application.ScreenUpdating = False
Sayfa1.Range("A4:L500").ClearContents
For j = 2 To 7
For i = 3 To 500
If Sheets(j).Cells(i, 2) = hcr Then
Set hcrr = Sheets(j).Cells(i, 2)
For k = 2 To 12
Cells(son, "A") = son - 3
Cells(son, k) = hcrr.Offset(0, k - 2)
Next k
son = son + 1
End If
Next i
Next j
Set hcr = Nothing
Set hcrr = Nothing
End Sub