-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sadece belli hücreleri gizlemek
- Konbuyu başlatan Erdal
- Başlangıç tarihi
Erdal
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
ilgine teşekkür ederim peki o zaman belli bir aralıktaki hücreleri (mesela D3:K3 aralığı
A1 hücresinin değerine göre yazı rengini beyaz yapıp görünmez yapabilirmiyiz. (A1 hücresi negatif veya 0 ise D3:K3 aralığındaki yazı rengi beyaz pozitif ise yazı rengi siyah gibi) Birde açıklaması uzun sürecek dosyaya bakmadan anlaşılması zor bir sorum var dosya bakıp yardımcı olursanız sevinirim şimdiden teşekkürler
A1 hücresinin değerine göre yazı rengini beyaz yapıp görünmez yapabilirmiyiz. (A1 hücresi negatif veya 0 ise D3:K3 aralığındaki yazı rengi beyaz pozitif ise yazı rengi siyah gibi) Birde açıklaması uzun sürecek dosyaya bakmadan anlaşılması zor bir sorum var dosya bakıp yardımcı olursanız sevinirim şimdiden teşekkürlerErdal
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
yok arkadaşım ben hücre isimlerini örnek diye verdim. dosyaya göre söyleyecek olursam AS145 hücresi negatif veya 0 ise Y146:AV146 aralığındaki yazı rengi beyaz AS145 hücresi pozitif ise Y146:AV146 aralığındaki yazı rengi siyah olsun istiyorum. Öbür soruya geçecek olursamda sayfayı kopyaladığımda A7 hücresi bir artsın.(yaklaşık 15 defa kopyalayacağım. Yani 14. kopyada 14 ,15. kopyada 15 otomatik olarak yazsın)
sarı alanın herhangi bir hücresinde
KOŞULLU BİÇİMLENDİRMEYE
=EĞER($AS$146<=0;1)
Yazın biçimden yazı rengini beyaz yapın.Sonra diğer hücrelere kopyala özel yapıştır biçimleri
Ben AS146 hücresini baz aldım. değiştirebilirsiniz.
KOŞULLU BİÇİMLENDİRMEYE
=EĞER($AS$146<=0;1)
Yazın biçimden yazı rengini beyaz yapın.Sonra diğer hücrelere kopyala özel yapıştır biçimleri
Ben AS146 hücresini baz aldım. değiştirebilirsiniz.
Erdal
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
sn. kombo, sn. sezar teşekkürler tam istediğim gibi olmuş teşekkürler. Koşullu biçimlendirme kısmında eğer formülünün doğru kısmına 1 yanlış kısmına 0 yazmışsınız. neden? Sırf mantığını anlamak için soruyorum. Birde sn. sezar diğer sorum için kopyalama işlemi makroyla yapılırsa olur demişsiniz. Ben acemiyim yardımcı olursanız sevinirim şimdiden teşekkürler
Erdal
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
sn. sezar ilginize teşekkür ederim. Yolladığım dosya bir adet sayfadan (ismi 1 olan) oluşuyor ve A7 hücresinde 1 değeri yazılı. Ben bu sayfayı kopyaladığım zaman (ismini 2 yapacağım) 2 isimli sayfamdaki A7 hücresi bir artarak 2 değerini alsın. Bu işlem kopyaladıkça devem etsin 15. kopyada 15 değerini alması gibi
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki kodu Boş bir modüle kopyalayın.Çalıştırın ve deneyin.
Aşağıdaki kodu Boş bir modüle kopyalayın.Çalıştırın ve deneyin.
Kod:
Sub sayfa_Kopyala()
If MsgBox("[ " & Sheets.Count + 1 & " ] İsminde Yeni bir sayfa Oluşturulacak." & vbLf & _
"Yeni Sayfa Oluşturulsunmu ?", vbYesNo) = vbNo Then Exit Sub
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets.Count
Sheets("1").Range("A1:DH155").Copy
Range("A1").PasteSpecial
application.cutcopymode=false
Range("A1").Select
Range("A7").Value = Sheets.Count
End SubErdal
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
sn. sezar yapamadım boş bir modül dediğiniz nedir acaba alt+f11 ile açılan vba sayfasında vbaproject sayfa 1(1) sayfasına yazmış olduğunuz kodu kopyalıyorum ama olmadı. Size çok zahmet olacak ama biraz daha ayrıntılı açıklarsanız sevinirim. şimdiden teşekkürler
Sayın Sezar
Bence
Satırını
Şeklinde değiştirin. Yani hep bir önceki Sayfayı kopyalasın ki, bir önceki veriler güncel kalsın.
Bence
Kod:
Sheets("1").Range("A1:DH155").Copy
Kod:
Sheets((Sheets.Count) - 1).Range("A1:DH155").CopyErdal
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
merhaba modemimde bir arıza olduğu için pazar günü foruma giremedim. Sn sezar ve sn kombo ilginiz ve emeğiniz için teşekkürler sn kombonun eklemiş olduğu satırı sezarın yazdığı kodlara ekleyince problemim çözüldü fakat bu seferde kopyalanan yeni sayfanın satır ve sütün genişlikleri boş bir excel sayfası açtığımızda olan satır ve sütun genişlikleri olmaya başladı. Bu konuda fikir verebilirseniz sevinirim.
Sn Sezar'ın kodlarında Şu revizeyi yapın,
Sub sayfa_Kopyala()
If MsgBox("[ " & Sheets.Count + 1 & " ] İsminde Yeni bir sayfa Oluşturulacak." & vbLf & _
"Yeni Sayfa Oluşturulsunmu ?", vbYesNo) = vbNo Then Exit Sub
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets.Count
Sheets((Sheets.Count) - 1).Columns("A: DG").Copy
Columns("A:A").PasteSpecial
Application.CutCopyMode = False
Range("A1").Select
Range("A7").Value = Sheets.Count
End Sub
NOT: Columns("A: DG") DG den önceki boşluğu silin. Gülen Surat yapıyor
Sub sayfa_Kopyala()
If MsgBox("[ " & Sheets.Count + 1 & " ] İsminde Yeni bir sayfa Oluşturulacak." & vbLf & _
"Yeni Sayfa Oluşturulsunmu ?", vbYesNo) = vbNo Then Exit Sub
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets.Count
Sheets((Sheets.Count) - 1).Columns("A: DG").Copy
Columns("A:A").PasteSpecial
Application.CutCopyMode = False
Range("A1").Select
Range("A7").Value = Sheets.Count
End Sub
NOT: Columns("A: DG") DG den önceki boşluğu silin. Gülen Surat yapıyor