Excel de F2 ENTER İşlevi

[mcleren]

İ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]

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]

Bu kodu bir deneyiniz.

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

 

[Levent Menteşoğlu]

Birde aşağıdaki kodu deneyin.

[vb:1:a8ae04acf3]Sub hesapla()
Application.Calculation = xlAutomatic
Application.Calculation = xlManual
End Sub
[/vb:1:a8ae04acf3]

 

[mcleren]

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]

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.

 

[mcleren]

İyi günlerer,

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

 

[Levent Menteşoğlu]

Bu işlemi sadece F9 tuşuna basarak kolaylıkla yapabilirsiniz.

 

[Kemal Demir]

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.