sayfaların açıklamasını tek sayfaya sıralı yaptırma

[imdatsaral]

selam arkadaşlar

ekte gönderdiğim dosyayı incelerseniz sevinirim üç ayrı sayfanın açıklamasını tek sayfada sıralı şekilde yazmak istiyorum sayfa geçişlerinde kullandığım butonlar açıklamanın başlığınıda yazmasını istiyorum

iyi çalışmalar

imdat saral
izmir

 

[imdatsaral]

Arkadaşlar
Bu soruya cevap verebilecek kimse yokmu?

:kafa:

 

[Levent Menteşoğlu]

Eki inceleyiniz.

 

[imdatsaral]

sayın leventm,
cevabın için teşekkür ederim yanlız benim istediğim birazdaha farklı benim anlatımımdan kaynaklanan yanlış anlama olmuş özür dilerim.

excel dosyasında yer alan konu-1, konu-2 ve konu-3 sayfalarında bir mamülün ana hatlarıyla anlatılıyor tanım sayfasında ise örneğin konu-1deki mamülle ilgili açıklama yazma yazmak gerekiyor konu-1 sayfasında yazanları kopyalamasını istemiyorum sadece "Açıklama yaz " butonuna basıldığında tanım sayfasına gidilmesi ve ilk satıra konu-1 yazması diğer açıklamaları manuel girilecek konu-1 açıklamasının bittiği yerden konu-2 sayfasının açıklaması bir alt satıra konu-2 diye başlık atsın konu-2 açıklamasının bittiğind bir alt satıra konu-3 sayfasının başlığını yazsın
umarım istediğimi anlatabilmişimdir.

iyi çalışmalar

imdat saral
izmir

 

[Levent Menteşoğlu]

Ekteki kodu aşağıdaki ile değiştirin.

[vb:1:c43bdd3944]Sub tanım()
a = WorksheetFunction.CountA(Sheets([a3].Value).Range("A3:A65536"))
b = WorksheetFunction.CountA(Sheets("tanım").Range("A1:A65536"))
Sheets("tanım").Cells(b + 1, 1) = Cells(3, 1)
End Sub
[/vb:1:c43bdd3944]

 

[imdatsaral]

Sayın leventm,

ilginiz için teşekkür ederim

 

[Levent Menteşoğlu]

yukarıdaki kodda bir satırın gereksiz olduğunuz farkettim. Aşağıdaki gibi daha uygun olacaktır.

[vb:1:dca646ff42]Sub tanım()
b = WorksheetFunction.CountA(Sheets("tanım").Range("A1:A65536"))
Sheets("tanım").Cells(b + 1, 1) = Cells(3, 1)
End Sub
[/vb:1:dca646ff42]

 

[imdatsaral]

Sayın leventm,

Private Sub CommandButton4_Click()
b = WorksheetFunction.CountA(Sheets("tanım").Range("a1:a65536"))
Sheets("tanım").Cells(b + 2, 1) = "*** Konu-1 ***"
Sheets("tanım").Select
End Sub

kodları uyarladım çalışıyor yanız "*** Konu-1 ***" yazısını koyu renk yazdırabilirmiyiz?

 

[Haluk]

Sheets("tanım").Cells(b + 2, 1).font.bold=true

 

[imdatsaral]

Sayın Raider,

Yardımınız için teşekkürler

Komut satırım
Sheets("tanım").Cells(b + 2, 1) = "*** Konu-1 ***"
Butoma tıkladığımda *** Konu-1 *** yazıyor

Sizin yazdığınız
Sheets("tanım").Cells(b + 2, 1).font.bold=true

benim için "*** Konu-1 ***" yazısı önemli başlık oluyor
koyu yazılması gerekiyor

 

[Haluk]

@imdatsaral;

Tam anlayamadım..... aşağıdaki şekilde yazınca, istediğiniz olmuyor mu yani ?

Private Sub CommandButton4_Click()
b = WorksheetFunction.CountA(Sheets("tanım").Range("a1:a65536"))
Sheets("tanım").Cells(b + 2, 1).font.bold=true
Sheets("tanım").Cells(b + 2, 1) = "*** Konu-1 ***"
Sheets("tanım").Select
End Sub

 

[imdatsaral]

sayın Raider,

özür dilerim hata benden kaynaklanıyor sayfam koruma vardı kaldırınca kod çalıştı

çok teşekkür ederim

 

[imdatsaral]

Sayın Raider,

kodlar çalışıyor çok sağolun benim bir isteğim daha olacak
" *** konu-1 *** " yazı rengini kırmızı yapmak mümkünmü?
iyi çalışmalar

imdat saral
izmir

 

[Haluk]

@imdatsaral;

sheets("tanım").cells(b + 2, 1).font.color = vbred

satırını da ilave edin.

 

[imdatsaral]

Sayın Raider,

teşekkür ederim