• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım otomatik dizi formülü onayı

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
227
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
Arkadaşlar bir butonumda formumdaki verileri temizlettiriyorum ve sonrasında bazı hücrelerimde dizi formülü olduğundan sonuna örneğin

={TOPLA((L3:L11="UFUK")*(M3:M11))+TOPLA((L42:L70="UFUK")*(M42:M70))+TOPLA((L81:L136="UFUK")*(M81:M136))+100} +100 eklentiğinden dolayı +100'silerek yeniden CTRL+SHIFT+ENTER ile komut vermek zorunda kalıyorum. Dizi formülü olan alanım D149:E158 aralığındaki hücrelerdir. Bu alana aşağıdaki temizleme macromun sonuna nasıl bir eklenti yaparak CTRL+SHIFT+ENTER komutu verebilirim?

Teşekkürler...


Private Sub CommandButton15_Click()
Dim sifre
sifre = InputBox("Lütfen Şifre Giriniz")
If sifre = "123" Then
ActiveWindow.SmallScroll Down:=-3
Range("M3:N11").Select
Selection.ClearContents
Range("P3:11").Select
Selection.ClearContents
Range("M13:N40").Select
Selection.ClearContents
Range("P13:40").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=33
Range("M42:N73").Select
Selection.ClearContents
Range("P42:73").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=36
Range("M81:N136").Select
Selection.ClearContents
Range("P81:136").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-138
ActiveWindow.SmallScroll ToRight:=8
Range("W4:X9").Select
Selection.ClearContents
Range("Z4:Z9").Select
Selection.ClearContents
Range("AB4:AB14").Select
Selection.ClearContents
Range("AD4:AD24").Select
Selection.ClearContents
Range("AF4:AF25").Select
Selection.ClearContents
Range("Z13:Z15").Select
Selection.ClearContents
Range("AA20").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 1
Range("P1:Q1").Select
If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"
Else
MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical, "INCSOFT"
End If
End Sub
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
227
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
Private Sub CommandButton15_Click()
Dim sifre
sifre = InputBox("Lütfen Şifre Giriniz")
If sifre = "123" Then
ActiveWindow.SmallScroll Down:=-3
Range("M3:N11,P3:Q11,M13:N40,M42:N73,M81:N136,W4:X9,Z4:Z9,AB4:AB14,AD4:AD24,AF4:AF25,Z13:Z15,AA20").ClearContents
If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"
Else
MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical, "INCSOFT"
End If
End Sub



Amacım D149,D150,D151,D152,D153,D155,D156,E149,E150,E151,E152,E153,E155 hücreleri ya da

=D149:E153 ve =D155:E156 kısımlarına belirtmiş olduğunuz komut sonrası macro ya da komut ile CTRL+SHIFT+ENTER ile dizi formülüne otomatik onay verdirmek. Dosya özel bir dosya olduğundan atamadım ama dosya diyorsanız boş bir dosya ayarlayım.
 
Üst Alt