Sayfaya uygulanan makroyu başka bir sayfan yönetme

[hduyar]

sayfa1 deki bulunan tuşa basıldığında sayfa2 de bulunan çalışmayı güncelleştiriyor. Yapılan bu güncelleştirmeyi sayfa2 ye gitmeden güncelleştirmesini istiyorum.
Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

 

[Ali]

Sub GÜNCELLE()
sil = Sheets("Sayfa2").Cells(65536, 6).End(xlUp).Row
Sheets("Sayfa2").Range("F2:H" & sil) = ""
son = Sheets("Sayfa2").Cells(65536, 1).End(xlUp).Row + 1
For i = 2 To son
If Sheets("Sayfa2").Cells(i, 3) > 0 Then
c = c + 1
Sheets("Sayfa2").Cells(c + 1, 6) = Sheets("Sayfa2").Cells(i, 1)
Sheets("Sayfa2").Cells(c + 1, 7) = Sheets("Sayfa2").Cells(i, 2)
Sheets("Sayfa2").Cells(c + 1, 8) = Sheets("Sayfa2").Cells(i, 3)
End If
Next
End Sub

 

[hduyar]

Teşekkür.

Ali kardeş
Göndermiş olduğun bilgiler için teşekkür ederim.
İşimi görür.

 

[hduyar]

Güncelle makrosunda sayfa2 de bulunan bilgileri sayfa2 ye gitmeden güncelliyor ama sayfa3 e gitmeden nasıl güncelleyecek.


Sub GÜNCELLE()
sil = Sheets("sayfa2").Cells(65536, 6).End(xlUp).Row
Sheets("sayfa2").Range("F2:H" & sil) = ""
son = Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row + 1
For i = 2 To son
If Sheets("sayfa2").Cells(i, 3) > 0 Then
c = c + 1
Sheets("sayfa2").Cells(c + 1, 6) = Sheets("sayfa2").Cells(i, 1)
Sheets("sayfa2").Cells(c + 1, 7) = Sheets("sayfa2").Cells(i, 2)
Sheets("sayfa2").Cells(c + 1, 8) = Sheets("sayfa2").Cells(i, 3)
End If
Next

'buradan sonra sayfa3 deki bilgileri güncellesin

For i = 1 To Worksheets.Count
Worksheets("bordro").Select
For Each t In Range("C11:C60").Cells
If t.Value > 1 Then 'boş hücreleri göster
t.EntireRow.Hidden = False
End If
Next t
Next i
'boş hücreleri gizler
Application.ScreenUpdating = False
For X = 2 To [C65536].End(3).Row
If Cells(X, 3) = 0 Then
Rows(X).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

 

[Ali]

[COLOR=red][B]..................................................................[/B][/COLOR]
sil = Sheets("sayfa2").Cells(65536, 6).End(xlUp).Row
Sheets("sayfa2").Range("F2:H" & sil) = ""
son = Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row + 1
For i = 2 To son
If Sheets("sayfa2").Cells(i, 3) > 0 Then
c = c + 1
Sheets("sayfa2").Cells(c + 1, 6) = Sheets("sayfa2").Cells(i, 1)
Sheets("sayfa2").Cells(c + 1, 7) = Sheets("sayfa2").Cells(i, 2)
Sheets("sayfa2").Cells(c + 1, 8) = Sheets("sayfa2").Cells(i, 3)
End If
Next
deger = Sheets("sayfa3").Cells(65536, 6).End(xlUp).Row
Sheets("sayfa3").Range("F2:H" & deger) = ""
son = Sheets("sayfa3").Cells(65536, 1).End(xlUp).Row + 1
For i = 2 To son
If Sheets("sayfa3").Cells(i, 3) > 0 Then
b = b + 1
Sheets("sayfa3").Cells(b + 1, 6) = Sheets("sayfa3").Cells(i, 1)
Sheets("sayfa3").Cells(b + 1, 7) = Sheets("sayfa3").Cells(i, 2)
Sheets("sayfa3").Cells(b + 1, 8) = Sheets("sayfa3").Cells(i, 3)
End If
Next
[B][COLOR=red]..................................................................................[/COLOR][/B]

şeklinde devam edin.

 

[hduyar]

Aşağıdaki kısmı sayfa3 e gitmeden makroyu uygulasın.
............................................................................................
For i = 1 To Worksheets.Count
Worksheets("sayfa3").Select
For Each t In Range("C11:C60").Cells
If t.Value > 1 Then 'boş hücreleri göster
t.EntireRow.Hidden = False
End If
Next t
Next i
'boş hücreleri gizler
Application.ScreenUpdating = False
For X = 2 To [C65536].End(3).Row
If Cells(X, 3) = 0 Then
Rows(X).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

 

[Ali]

[COLOR=red][B].............................................................[/B][/COLOR]
For i = 1 To Worksheets.Count
For Each t In Sheets("sayfa3").Range("C11:C60").Cells
If t.Value > 1 Then
t.EntireRow.Hidden = False
End If
Next t
Next i
Application.ScreenUpdating = False
For X = 2 To Sheets("sayfa3").[C65536].End(3).Row
If Sheets("sayfa3").Cells(X, 3) = 0 Then
Rows(X).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
[B][COLOR=red].............................................................[/COLOR][/B]

 

[hduyar]

İstediğim olmadı ama yinede yardımcı olduğun için Teşekkür ederim.

 

[Ali]

Sn hduyar kodları nerden aldığını bilmiyorum ama

For i = 1 To Worksheets.Count ile sayfaları saydırıyorsunuz i değişkeni hiçbiryerde kullanılmıyor amacınız Sayfa3 deki C11-C60 arasındaki boş yada sıfır olan hücrelerin satırlarını gizlemekmidir.

 

[hduyar]

Evet.
Önce koşula bağlı 1 den büyük gizli sütunları gösterin sonrada 0 olan sütunları gizlesin şeklinde bir makro çalışması yapıyorum.

 

[Ali]

[FONT=Times New Roman][SIZE=3]Sub gizle()[/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman] Dim i As Integer[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]  Application.ScreenUpdating = False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]  For i = 11 To 60[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       If Sheets("Sayfa3").Cells(i, 3) > 1 Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       Sheets("Sayfa3").Cells(i, 3).EntireRow.Hidden = False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       End If[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       If Sheets("Sayfa3").Cells(i, 3) = 0 Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       Sheets("Sayfa3").Cells(i, 3).EntireRow.Hidden = True[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       End If[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]      Next[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]  Application.ScreenUpdating = False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Sub[/FONT][/SIZE]

 

[hduyar]

Tamam oldu. Teşekkür ederim.