HÜCREDEKİ SABİT DEĞER İLE İŞLEM YAPMA HK.

[serkan guvenc]

eKTEKİ DOSYADA P SÜTÜNUNDAN Z SUTUNANA KADAR RAKAMLARI
(SUTUNUN TAMAMINI) DEĞİL MAKRODA KULLANMAK ÜZERE SABİTLEMEK İSTİYORUM
YARDIMCI OLURMUSUNUZ
TEŞEKKÜRLER

 

[uzmanamele]

Merhaba
2.satırdaki değer ile işlem yapsanız yetiyor, neden yüzlerce satıra yazıyorsunuz ki?

.Cells(2, 24)

 

[serkan guvenc]

ZERO hatası verdi BENDE O ŞEKİL YAPTIM

 

[serkan guvenc]

SİZ YARDIMCI OLABİLRSENİZ DOSYANIN SON HALİNİ TEKRAR YÜKLEDİM
BİR DE SON SATIRIN ALTINA TOPLAM ALDIRMAK İSTİYORUM

 

[Korhan Ayhan]

Klavyenizde sorun yoksa BÜYÜK HARF kuralını hatırlatmak isterim..

Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.

 

[serkan guvenc]

unutmuşum korhan hocam siz dosyaya bi göz atabilirmisiniz
bazı hatalarım var düzeltmeye çalışıyorum

 

[uzmanamele]

Merhaba
Parametreler diye sayfanız ve burada parametreleriniz var.
Kodun içine örneğin Pr1=1.20, Pr2=1.01, Pr3=1.10 yazın ve hangi şartta hangi parametreyi kullanacaksanız onu yazın.

If .Cells(satir, 4).Value = Range("P5") Then
    .Cells(satir, 8).Value = .Cells(satir, 7) / .Cells(2, 18)
    
'yerine     
If .Cells(satir, 4).Value = Range("P5") Then
    .Cells(satir, 8).Value = .Cells(satir, 7) / Pr1

 

[serkan guvenc]

merhaba Teşekkür ederim
alt toplamı makro ile nasıl aldırabilirim.
son satırın bir altına 8-9-10-11-12 inci sutunları ayrı ayrı
yardımcı olabilirmisiniz

 

[uzmanamele]

Merhaba

Deneyiniz.

Sub total()
SonSatir = Range("A1").End(xlDown).Row
Cells(SonSatir + 2, 8) = WorksheetFunction.Sum(Cells(2, 8) & ":" & Cells(SonSatir, 8))
End Sub

 

[serkan guvenc]

WorksheetFunction.Sum özelliği alınamıyor.hatası verdi.başına applıcation ifadesi koyup denedim yine olmadı,