Excel de F2 ENTER İşlevi

Katılım
17 Kasım 2005
Mesajlar
48
İyi Günler,

Excel dosyası büyük olduğundan hesaplatma otomatik yerine manuel olcak. Ancak tüm shetledeki hücrelere F2 ENTER yapacak macro gerekmektedir.

Macro konusunda yardımlarınızı bekliyorum.

teşekkürler,
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Sn.mcleren,

Sn.Danersin'e ait Kod.İşinizi Görecektir.

Sub TRIMLE_BOSLUK_AL()
Selection.CurrentRegion.Select
Set xxx = Selection
For Each x In xxx
x.Activate
ActiveCell.Value = Application.WorksheetFunction.Clean(ActiveCell.Value)
ActiveCell.Value = Application.WorksheetFunction.TRIM(ActiveCell.Value)
Next x
Selection.CurrentRegion.Select
With Selection
.WrapText = False
End With
Range("A1").Select

End Sub
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu kodu bir deneyiniz.

Range("A1").Activate
Range("A1:O32").Select
End Sub
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Birde aşağıdaki kodu deneyin.

[vb:1:a8ae04acf3]Sub hesapla()
Application.Calculation = xlAutomatic
Application.Calculation = xlManual
End Sub
[/vb:1:a8ae04acf3]
 
Katılım
17 Kasım 2005
Mesajlar
48
Sn. Rakkas

Kod çalıştı ancak, değerleri değiştirdiğim zaman çalışmıyor birde diğer sheetlere geçtiğimde hata veriyor.
Benim istediğm ise ; büyük bir excel dosyası olduğunu düşünün ve hesaplaması yaklaşık 1 saat sürduğunu. herhangi bir veri değiştirdiğimde
komple çalışmaktansa sadece veri girilen formulü F2 ENTER yaparak değiştirmek istiyorum. Yani bütün Sheetlerdeki hücrelere F2 ENTER işlemi
yapacak kod gerekmektedir.
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Sn.mcleren

Ek'teki Örneğe bakınız.

Sayısal değerler Örnek içerisinde mevcut değil.Ama Sayfa içerisindeki Tum Sheetlerde Çalışır durum da.İnceleyiniz.Üzerinde(Elimden Geldigince) geliştirmeye devam ederiz.

Not:Asıl Örnek dosyanda 1 ve 2 satırları silmen gerkecek Aksı takdırde alan tanımlanması yapılamaz.
 
Katılım
17 Kasım 2005
Mesajlar
48
İyi günlerer,

Bahsettiğim kodla ilgili farklı bilgisi olan varmı.
teşekkürler,
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bu işlemi sadece F9 tuşuna basarak kolaylıkla yapabilirsiniz.
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Belki buda Sizin İçin Bir Çözümdür.

Eğer Çözüm sonuclandırma olcaksa.

Sub işlem()
For x = 1 To 100
Cells(x, 3) = Cells(x, 1) * 1 * Cells(x, 2)
Next
End Sub
Sub başla()
For x = 1 To Sheets.Count
Sheets(x).Select
Application.Run "işlem"
Next
End Sub

Makroyu Çalıstırırken Başla Makrosunu Tıklamanız Yeterli Olacaktır.
 
Üst