Buton ile hücre içeriği yenileme

[teonet]

Merhaba Uzman arkadaşlar;

Benim sorunum Kapalı bir doyadan veri alıyorum. Bu veriler yukarıdan aşağıya doğru 50 - 60 hüçrede bulunuyor. =+'J:\Guvenlik\[SIRA KAYIT.xls]et'!A2548 Bu formül A1 hüçresinde bulunuyor ve aşağıya doğru (A2-A3-A4 diye) devam ediyor. Ana dosyadaki değişikliği görebilmem için için satırların hepsini yukarıdan aşağıya kadar yenilemem gerekiyor. Bu işlemi bir buton yardımı ile yapabilir miyiz?

Şimdiden tüm arkadaşlara teşekkür ederim.
İyi çalışmalar.

 

[Ömer]

Merhaba,

Bu formül için yenileme yapmanıza gerek yok kendiliğinden işlemin yenilenmesi gerekir.

Araçlar / Seçenekler / Hesaplama menüsünde "Otomatik" seçeneğini işaretli değilse işaretleyerek denermisiniz..

 

[teonet]

Merhaba Ömer Bey
Belirtmiş olduğunuz seçenek mevcutta seçili olmasına rağmen istediğim olay gerçekleşmiyor. Dosyayı kapatım açtığmda veriler güncelleşiyor. Bu nedenle buton yardımı ile manuel olarak yapmak istiyorum.

İlginiz için teşekkür ederim.

 

[Ömer]

Sub Yenile()
For i = 1 To [A65536].End(3).Row
    Cells(i, "a").Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
Next i
End Sub

Denermsiniz..

 

[teonet]

Sayı Ömer Bey

Direk kodları yazdığım sayfayı açtı Private Sub CommandButton1_Click() sarı renk oldu.

Verdiği hata ise;
compile error:
expected end sub

 

[Ömer]

Sayı Ömer Bey

Direk kodları yazdığım sayfayı açtı Private Sub CommandButton1_Click() sarı renk oldu.

Verdiği hata ise;
compile error:
expected end sub

Private Sub CommandButton1_Click()  
For i = 1 To [A65536].End(3).Row
    Cells(i, "a").Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
Next i
End Sub

 

[teonet]

çok teşekkür ederim Ömer Bey
Tam istediğim gibi oldu. Formda bir hafta boyunca aramıştım, sayenizde çözüldü.

Son bir sorum olacak; A satırı ile beraber B, C, D ...K Ya kadar eklemek (ayni işlemi birden fazla satıra ayni buton ile uygulamak) istersem nasıl bir değişiklik yapmam gerekiyor.

 

[Ömer]

çok teşekkür ederim Ömer Bey
Tam istediğim gibi oldu. Formda bir hafta boyunca aramıştım, sayenizde çözüldü.

Son bir sorum olacak; A satırı ile beraber B, C, D ...K Ya kadar eklemek (ayni işlemi birden fazla satıra ayni buton ile uygulamak) istersem nasıl bir değişiklik yapmam gerekiyor.

Denemedim, bu şekilde olabilir.

Private Sub CommandButton1_Click()  
For i = 1 To [A65536].End(3).Row
    Range(Cells(i, "a"), Cells(i, "d")).Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
Next i
End Sub

 

[teonet]

Sayın Ömer Bey
Çok teşekkür ederim elinize sağlık. Hemen deniyeceğim..

İyi çalışmalar.

 

[krdndm]

ömer bey

bende aynı kodualdım ama sayfa sonuna kadar gidiyor belirli bir yerden sonra dursa

 

[krdndm]

ömer bey oradamısınız