makro ile c sütununda dolu hücreleri 1440 ile çarpma

[iaslan517]

merhabalar çalışma sayfasında c sütununda olan sadece dolu hücrelerdeki değerleri 1440 ile çarptırma işlemi makro ile yapılabilir mi

 

[Ömer BARAN]

Merhaba.

-- Boş bir hücreye 1440 yazın ve bu hücreyi kopyalayın,
-- C sütununu seçin,
-- GİRİŞ menüsünde en sağda BUL/SEÇ => ÖZEL GİT => SABİTLER =>TAMAM,
-- Seçili hücrelerden birinin üzerinde fareyle sağ tıklayıp, ÖZEL YAPIŞTIR => ÇARP => TAMAM
şeklinde istediğinizin olması lazım.
.

 

[iaslan517]

hocam çalışma sayfasında 1440 yazılı hücre olmayacak

 

[Ömer BARAN]

Boş hücre olarak D1 hücresinin kullanılmasını öngördüm.
Farklı bir hücreyi kullanmak için bunları değiştirebilirsiniz.
Kod, önce D1 hücresine 1440 yazar, C sütunundaki işlemi tamamlayıp D1 hücresine yazılan 1440 sayısını siler.
.

Sub SABIT_CARP_BRN()
    [[B][COLOR="blue"]D1[/COLOR][/B]] = 1440: [[B][COLOR="blue"]D1[/COLOR][/B]].Copy
    Columns("C:C").SpecialCells(xlCellTypeConstants, 23).PasteSpecial Operation:=xlMultiply
    [[B][COLOR="blue"]D1[/COLOR][/B]] = "": [[B][COLOR="blue"]D1[/COLOR][/B]].Activate
End Sub

 

[iaslan517]

Boş hücre olarak D1 hücresinin kullanılmasını öngördüm.
Farklı bir hücreyi kullanmak için bunları değiştirebilirsiniz.
Kod, önce D1 hücresine 1440 yazar, C sütunundaki işlemi tamamlayıp D1 hücresine yazılan 1440 sayısını siler.
.

Sub SABIT_CARP_BRN()
    [[B][COLOR="blue"]D1[/COLOR][/B]] = 1440: [[B][COLOR="blue"]D1[/COLOR][/B]].Copy
    Columns("C:C").SpecialCells(xlCellTypeConstants, 23).PasteSpecial Operation:=xlMultiply
    [[B][COLOR="blue"]D1[/COLOR][/B]] = "": [[B][COLOR="blue"]D1[/COLOR][/B]].Activate
End Sub

çok teşekkür ederim hocam başarılarınızın devamını diliyorum