kod yardımı

[CONANFORCE]

iyi çalışmalar arkadaşlar elimde bir sayfa var bir sutununu kod ile hem biçimlendirmek hemde düzenlemek istiyorum. yardım ederseniz sevinirim. şimdiden teşekkür ederim.

 

[mancubus]

excel 2003 formatında eklenmiş dosyaların cevap bulma ihtimali daha fazladır.

formülünüzü oluşturmuşsunuz.
koşullu biçimlendirme yapmışsınız.

bana göre kodluk bir ihtiyacınız yok.

bu sayfayı 25 defa kopyalamak ve sayfa isimlerinii değiştirmek mi istiyorsunuz?

 

[CONANFORCE]

hayır amacım o değil. ben örnek olarak yaptım formül bildiğim için her şeyi formülle yapıyorum. kod bilmiyorum, o yüzden dosyanın boyutu veri girmeden (formüller girilmiş haliyle) bile 50 mb geçiyor. ben bu formülleri kaldırıp makro veya vba şeklinde yapmak istiyorum hem açılması hemde işlem yapması daha hızlı olacak. bu konuda yardım istedim. tekrar teşekkür ederim.

 

[mancubus]

umarım talebi yanlış anlamamışımdır.


geliştirici'den makro kaydet'i seçtim.
H2 hücresine gelip f2 ve peşinden enter tuşlarına bastım.
H sütununu seçtim. biçimleri sildim.
koşullu biçilmlendirmede hücre değerine ÖDEYECEK yazdım.
OK dedim.
makroyu durdurdum.

yani sizin sayfa içinde yaptıklarınızı makro kaydedicisini çalıştırdıktan sonra yaptım.
aşağıdakini verdi.

Alt+F11 ile girdiğim VBE'de şunları yaptım:

- elle girmemek için olarak son satırı bulması için bir değişken ekledim.
- R1C1 formatında gelen formülü sildim. iki "" arasına exceldeki hücreden formülü aynen kopyaladım.
- koşullu biçimlendirmedeki "Selection" ifadelerini Columns("H:H") ifadesi ile değiştirdim.

eğer tüm girişlerinizi yaptıktan sonra formül yazıyorsanız, dosyanızı, kodun içindeki

Range("H2:H" & sonsat) = "=IF(D2="""","""",IF(G2=D2,""TAHSİL EDİLDİ"",""ÖDEYECEK""))"

satırından sonra gelmek üzere aşağıdaki satırı ekleyerek (formülleri değere çevirmek sureti ile) küçültebilirsiniz.

With Range("H2:H" & sonsat)
    .Value = .Value
End With

makro kaydedici kullanmaktan çekinmeyin.

Sub Macro1()
'
' Macro1 Macro
'
Dim sonsat As Long

sonsat = ActiveSheet.Range("A1048576").End(xlUp).Row
'
Range("H2:H" & sonsat) = "=IF(D2="""","""",IF(G2=D2,""TAHSİL EDİLDİ"",""ÖDEYECEK""))"

Columns("H:H").FormatConditions.Delete
Columns("H:H").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=""ÖDEYECEK"""
Columns("H:H").FormatConditions(Columns("H:H").FormatConditions.Count).SetFirstPriority
With Columns("H:H").FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent2
    .TintAndShade = 0.599963377788629
End With
Columns("H:H").FormatConditions(1).StopIfTrue = False
Range("H1").Select

End Sub

 

[CONANFORCE]

çok teşekkür ederim sağolun sayenizde yaptım