sayfalardan hücre değerini alıp başka hücreye değerini yapıştırma

[muratozmenler]

sayfa1 ve sayfa2 hariç tüm sayfalarda (20-25 sayfa var) s16 hücresindeki değeri b4 hücresine nasıl yazdırabiliriz.not: s16 hücresine değer formülle alınıyor sadece hücre değeri alınacak.

 

[Recep İpek]

Hangi sayfanın b4 hücresine yazdırılacak? Ayrıca bu veriler alt alta mı sıralanacak?

 

[muratozmenler]

Hangi sayfanın b4 hücresine yazdırılacak? Ayrıca bu veriler alt alta mı sıralanacak?

her sayfanın kendi içinde olacak.
yani şöyne tuşa bastığımız zaman sayfa1 ve sayfa 2 hariç diğer ne kadar sayfa varsa onların sırasıyla (sayfa3 ün s16 sı sayfa3 ün b4 üne, sayfa 4ün s16 ısı sayfa4 ün b4 üne,sayfa5 in s16 sı sayfa 5 in b4 üne..........)tüm sayfalarda bulunan s16 sı hücresi formüllüdür ve devamlı değişmektedir. tuşa bastığımız zaman bu s16 değerini b4 e yazması...tüm sayfaların kendi içinde ..

 

[Recep İpek]

Ekli dosyayı inceleyiniz.

Sub Deger_Aktar()
On Error Resume Next
Dim sadi As Worksheet
Application.ScreenUpdating = False
    For Each sadi In Worksheets
        If (sadi.Name) <> "Sayfa1" Or (sadi.Name) <> "Sayfa2" Then
            sadi.Range("b4").Value = sadi.Range("s16").Value
        End If
    Next
Application.ScreenUpdating = True
MsgBox "İşlem Bitti"
End Sub

 

[muratozmenler]

Ekli dosyayı inceleyiniz.

Sub Deger_Aktar()
On Error Resume Next
Dim sadi As Worksheet
Application.ScreenUpdating = False
    For Each sadi In Worksheets
        [COLOR="Red"]If (sadi.Name) <> "Sayfa1" Or (sadi.Name) <> "Sayfa2" Then[/COLOR]
            sadi.Range("b4").Value = sadi.Range("s16").Value
        End If
    Next
Application.ScreenUpdating = True
MsgBox "İşlem Bitti"
End Sub

ilginiz için teşekkür ederim fakat
sayfalar hariç olmasına rahmen hariç sayfaardada işlem yapıyor..

 

[Recep İpek]

Evet haklısınız.

Kodları aşağıdaki şekilde değiştirebilir misiniz?

Sub Deger_Aktar()
On Error Resume Next
Dim sadi As Worksheet
Application.ScreenUpdating = False
    For Each sadi In Worksheets
       [COLOR=blue] If (sadi.Name) = "Sayfa1" Or (sadi.Name) = "Sayfa2" Then
            
        Else
[/COLOR]            sadi.Range("b4").Value = sadi.Range("s16").Value
        End If
    Next
Application.ScreenUpdating = True
MsgBox "İşlem Bitti"
End Sub

 

[muratozmenler]

Teşekkür ederim recep bey şimdi sorun yok...