sadece belli hücreleri gizlemek

[Erdal]

merhaba
arkadaşlar ekte dosyayı yolluyorum. ben sadece belli hücreleri gizlemek istiyorum A1:F1 gibi veya sadec D3 hücresini gizlemek gibi şimdiden teşekkürler

 

[Orion1]

Merhaba.
Hücre aralığı gizlenemiyor.
Sadece satır veya sütun gizlenebiliyor.

 

[Erdal]

ilgine teşekkür ederim peki o zaman belli bir aralıktaki hücreleri (mesela D3:K3 aralığ&#305 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

 

[Orion1]

İstediğiniz olur ama sizin söylediğiniz D3 hücresi A3:G3 Aralığında birleştirilmiş ve H3:I11 hücre aralığıda birleşirilmiş durumda.:???:

 

[Erdal]

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)

 

[kombo]

sarı alanın herhangi bir hücresinde

KOŞULLU BİÇİMLENDİRMEYE
=E&#286;ER($AS$146<=0;1)

Yaz&#305;n bi&#231;imden yaz&#305; rengini beyaz yap&#305;n.Sonra di&#287;er h&#252;crelere kopyala &#246;zel yap&#305;&#351;t&#305;r bi&#231;imleri
Ben AS146 h&#252;cresini baz ald&#305;m. de&#287;i&#351;tirebilirsiniz.

 

[Orion1]

Merhaba
Ekli dosyada renk olayı çözümlendi.
Diğer istediğiniz durum için ancak kopyalama işlemi makro ile yapılırsa olur.
İyi çalışmalar.

 

[Erdal]

sn. kombo, sn. sezar te&#351;ekk&#252;rler tam istedi&#287;im gibi olmu&#351; te&#351;ekk&#252;rler. Ko&#351;ullu bi&#231;imlendirme k&#305;sm&#305;nda e&#287;er form&#252;l&#252;n&#252;n do&#287;ru k&#305;sm&#305;na 1 yanl&#305;&#351; k&#305;sm&#305;na 0 yazm&#305;&#351;s&#305;n&#305;z. neden? S&#305;rf mant&#305;&#287;&#305;n&#305; anlamak i&#231;in soruyorum. Birde sn. sezar di&#287;er sorum i&#231;in kopyalama i&#351;lemi makroyla yap&#305;l&#305;rsa olur demi&#351;siniz. Ben acemiyim yard&#305;mc&#305; olursan&#305;z sevinirim &#351;imdiden te&#351;ekk&#252;rler

 

[Orion1]

Merhaba.
Neyin nereye kopyalanacağını tam olarak açıklarmısınız?

 

[Erdal]

sn. sezar ilginize te&#351;ekk&#252;r ederim. Yollad&#305;&#287;&#305;m dosya bir adet sayfadan (ismi 1 olan) olu&#351;uyor ve A7 h&#252;cresinde 1 de&#287;eri yaz&#305;l&#305;. Ben bu sayfay&#305; kopyalad&#305;&#287;&#305;m zaman (ismini 2 yapaca&#287;&#305;m) 2 isimli sayfamdaki A7 h&#252;cresi bir artarak 2 de&#287;erini als&#305;n. Bu i&#351;lem kopyalad&#305;k&#231;a devem etsin 15. kopyada 15 de&#287;erini almas&#305; gibi

 

[Orion1]

Merhaba.
Aşağıdaki kodu Boş bir modüle kopyalayın.Çalıştırın ve deneyin.

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 Sub

 

[Erdal]

sn. sezar yapamad&#305;m bo&#351; bir mod&#252;l dedi&#287;iniz nedir acaba alt+f11 ile a&#231;&#305;lan vba sayfas&#305;nda vbaproject sayfa 1(1) sayfas&#305;na yazm&#305;&#351; oldu&#287;unuz kodu kopyal&#305;yorum ama olmad&#305;. Size &#231;ok zahmet olacak ama biraz daha ayr&#305;nt&#305;l&#305; a&#231;&#305;klarsan&#305;z sevinirim. &#351;imdiden te&#351;ekk&#252;rler

 

[kombo]

Sayın Sezar
Bence

Sheets("1").Range("A1:DH155").Copy

Satırını

Sheets((Sheets.Count) - 1).Range("A1:DH155").Copy

Şeklinde değiştirin. Yani hep bir önceki Sayfayı kopyalasın ki, bir önceki veriler güncel kalsın.

 

[Orion1]

Alt+F11 den sonra insert ==> Module basınız .Sonrada açılan syafya yazdığım kodları yapıştırınız.Sonrada Run 'dan sub ile başalayan makro adını bularak çalıştırın.

 

[Orion1]

Sayın combo arkadaş 1 nolu sayfadan kopyalanmasını istiyordu.
Selamlar.

 

[kombo]

Ben Hakedi&#351; mant&#305;&#287;&#305; a&#231;&#305;s&#305;ndan fikrimi belirttim.

 

[Erdal]

merhaba modemimde bir ar&#305;za oldu&#287;u i&#231;in pazar g&#252;n&#252; foruma giremedim. Sn sezar ve sn kombo ilginiz ve eme&#287;iniz i&#231;in te&#351;ekk&#252;rler sn kombonun eklemi&#351; oldu&#287;u sat&#305;r&#305; sezar&#305;n yazd&#305;&#287;&#305; kodlara ekleyince problemim &#231;&#246;z&#252;ld&#252; fakat bu seferde kopyalanan yeni sayfan&#305;n sat&#305;r ve s&#252;t&#252;n geni&#351;likleri bo&#351; bir excel sayfas&#305; a&#231;t&#305;&#287;&#305;m&#305;zda olan sat&#305;r ve s&#252;tun geni&#351;likleri olmaya ba&#351;lad&#305;. Bu konuda fikir verebilirseniz sevinirim.

 

[kombo]

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

 

[Erdal]

yard&#305;mlar&#305;n&#305;z i&#231;in &#231;ok te&#351;ekk&#252;r ederim say&#305;n kombo ve say&#305;n sezar sorunum halloldu

 

[Erdal]

say&#305;n kombo say&#305;n sezar yard&#305;mlar&#305;n&#305;z i&#231;in &#231;ok te&#351;ekk&#252;r ederim sorunum halloldu