exceldeki bir komutu hücre içine koyma

[preators]

meraba
filtre uyguladığım bir sayfada verilerimi güncellemek için ctrl+alt+L tuşlarına basıyoruz
bunun yerine bu işlevi sayfadaki her hangi bir hücreye nasıl koyarım yani o hücreye tıkladığımda sayfa kendini güncellesin.
şimdiden teşekkürler

 

[Murat OSMA]

Sayfanin Worksheet_SelectionChange olayina

If target.address (0,0) <> "a1" then exit sub
Activeworkbook.refreshall

yazin.
A1 hücresini sectiginizde çalışacaktir.

 

[preators]

Sayfanin Worksheet_SelectionChange olayina

If target.address (0,0) <> "a1" then exit sub
Activeworkbook.refreshall

yazin.
A1 hücresini sectiginizde çalışacaktir.

Worksheet_SelectionChange olayını anlamadım nasıl yazıcam o kodu oraya bi örnek resim gösterirmisiniz.

 

[preators]

d1 hücresine komutu yerleştirmek istiyorum fakat çalışmadı.

 

[preators]

 

[Murat OSMA]

Şu yolu takip edin;

Alt + F11'e basın.
Açılan pencerenin solundaki sayfa isimlerinden ilgili sayfa üzerinde cit tiklayin ve o sayfanin kod sayfasına erişin. Bu sayfanin sag tarafindaki açılır kutuyu acin ve selection change olayını secin. Son olarak verdiğim kodlari da bu olay içerisine yapistirin. Şimdi A1 hücresini secip deneyebilirsiniz.

 

[preators]

malesef dediğinizi aynen yaptım

ama olmuyor a1 hücresinde bi değişiklik yok.

 

[preators]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

If Target.Address(0, 0) <> "a1" Then Exit Sub
ActiveWorkbook.RefreshAll

 

[Murat OSMA]

Tekrar deneyin.

Şu yolu takip edin;

Alt + F11'e basın.
Açılan pencerenin solundaki sayfa isimlerinden ilgili sayfa üzerinde cit tiklayin ve o sayfanin kod sayfasına erişin. Bu sayfanin sag tarafindaki açılır kutuyu acin ve selection change olayını secin. Son olarak verdiğim kodlari da bu olay içerisine yapistirin. Şimdi A1 hücresini secip deneyebilirsiniz.

 

[preators]

http://dosya.altervista.org/download.php?file=1218c4f45611d9057c74147760234eef

dosya burda sevkiyat 1 ve sevkiyat 2 bölümlerinin a1 hücrelerine uygularsanız sevinirim ben yaptım dediklerinizi olmadı

 

[Murat OSMA]

End Sub satırını en sona yazın.

 

[preators]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) <> "a1" Then Exit Sub
ActiveWorkbook.RefreshAll
End Sub

böyle yapıyorum olmuyor......

 

[Murat OSMA]

ActiveWorkbook.RefreshAll yerine ActiveSheet.AutoFilter.ApplyFilter yazıp deneyin.

 

[preators]

Olmuyor..........................