Otomatik Başlıklar

[hakki83]

Merhaba saygılar hocalarımız

A1 hücresinde AD SOYAD
B1 hücresinden itibaren veri olan son sütuna kadar SORUNLAR başlıklarını getirecek kodu oluşturabilir miyiz?

A1'i yaptım fakat B1'den itibaren olanını yapamadım.

Önemli not: Veri olan son sütun sabit değildir, değişkendir.

 

[Necdet]

Merhaba,
Ben sorunuzdan bir şey anlamadım, olması gerekeni belirtirseniz anlaşılması daha kolay olacaktır.

 

[hakki83]

Merhaba Necdet hocam
Sütunlara otomatik başlık gelmesini istemiştim. (Sadece başlıklar gelecek)
A1 oluyor da, B1’den diğer sütunlara kadar otomatik yapılması gerekiyor.

Son sütun değişkendir.
Teşekkürler.

 

[Necdet]

Merhaba,
Anlamadığım da o zaten sayın hakki83,
B1'in başlığı ne olacak? C1'in başlığına ne gelecek?
A sütununda isimler olduğu için AD SOYAD demişsiniz de, diğerlerine ne gelecek?
Sütunu incelediğinizde Örneğin B sütununu hem Sorun1 hem de Sorun2 var, bunlara bakarak B sütununun başlığına ne yazılmasını istiyorsunuz.

 

[hakki83]

Necdet Hocam B1’den itibaren (son veri olan hücrenin bulunduğu sütunun) sonuna kadar, hep aynı başlık gelecek.

Örnek “SORUNLAR” başlığı.

Teşekkürler.

 

[Necdet]

Nihayet Anladım

Private Sub CommandButton1_Click()

Dim rng As Range

Set rng = Range("A1").CurrentRegion
Sayfa1.[A1] = "AD SOYAD"

Sayfa1.Range(Sayfa1.Cells(1, 2), Sayfa1.Cells(1, rng.Columns.Count)) = "Sorunlar"

Set rng = Nothing

End Sub

 

[hakki83]

Necdet hocam çok teşekkürler emeğinize sağlık. Mutlaka olmuştur, bilgisayara geçince hemen deneyeceğim

 

[hakki83]

Set rng = Nothing

Necdet hocam oldu hiç sorun yok da öğrenmek için,

Set rng = Nothing

Bu satırın vazifesi nedir hocam ?

 

[Necdet]

rng yi rangen olarak tanımladık.
işi bitince de belleği boşaltmak için kullanılan bir kod.
gerekmeyebilir, procedure bitince zaten sıfırlanır da, alışkanlık haline getirmek gerek belleği boşaltmayı.