- Katılım
- 4 Mayıs 2013
- Mesajlar
- 86
- Excel Vers. ve Dili
- office 2010
Kod:
Sub F2ENTER()
Dim Alan As Range
For Each Alan In Range("D2:D250,H2:H250,L2:Q250")
Alan.Select
DoEvents
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub
son dolu stunun baz alınacağı veri A stunu olacak şekilde yani A stunun son satırı diğerlerininde son satırı olacak
Bunu dememin sebebi diğer stunların kendi içinde boşlukların var olmasından kaynaklı