- Katılım
- 6 Şubat 2024
- Mesajlar
- 3
- Excel Vers. ve Dili
- Office365(türkçe)
Dim ws As Worksheet
Set wb2 = ThisWorkbook
Set ws = wb2.Sheets(2)
Application.ScreenUpdating = False 'Ekranı güncellemeyi kapat
Application.Calculation = xlCalculationManual 'Hesaplama modunu manuel yap
'H2 hücresindeki veriyi sakla
Dim saklananVeri As Variant
saklananVeri = ws.Range("H2").formula
'Sayfa içindeki tüm verileri sil
ws.Cells.ClearContents
'H2 hücresine saklanan veriyi geri yükle
ws.Range("H2").formula = saklananVeri
Çok Basit şekilde bir formülü h2 hücresinde bırakıp tüm verileri silip sonra o formülü oraya geri koymak istiyorum. Ancak işlem sırasında formülümdeki A:A gibi aralıkların başına @ işareti geliyor bunun olmamasını nasıl sağlarım lütfen yardımcı olun.
=EĞER(E2>1;BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;A:A;G:G));3);1)+TOPLA(BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;A:A;G:G*F:F));3);SIRALI(E2-1;;2)));G2)
=EĞER(E2>1;BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;@A:A;G:G));3);1)+TOPLA(BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;@A:A;@G:G*@F:F));3);SIRALI(E2-1;;2)));G2)
Set wb2 = ThisWorkbook
Set ws = wb2.Sheets(2)
Application.ScreenUpdating = False 'Ekranı güncellemeyi kapat
Application.Calculation = xlCalculationManual 'Hesaplama modunu manuel yap
'H2 hücresindeki veriyi sakla
Dim saklananVeri As Variant
saklananVeri = ws.Range("H2").formula
'Sayfa içindeki tüm verileri sil
ws.Cells.ClearContents
'H2 hücresine saklanan veriyi geri yükle
ws.Range("H2").formula = saklananVeri
Çok Basit şekilde bir formülü h2 hücresinde bırakıp tüm verileri silip sonra o formülü oraya geri koymak istiyorum. Ancak işlem sırasında formülümdeki A:A gibi aralıkların başına @ işareti geliyor bunun olmamasını nasıl sağlarım lütfen yardımcı olun.
=EĞER(E2>1;BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;A:A;G:G));3);1)+TOPLA(BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;A:A;G:G*F:F));3);SIRALI(E2-1;;2)));G2)
=EĞER(E2>1;BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;@A:A;G:G));3);1)+TOPLA(BÜYÜK(SÜTUNA((İLKEŞLEŞEN(A2;@A:A;@G:G*@F:F));3);SIRALI(E2-1;;2)));G2)