activecell degerini seçilen kolona göre değiştirmek

[hakan439]

-------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sheets("Sheet1").Select ' dosya açıldığında seçilecek sayfa ismi

Columns("A:A").ColumnWidth = 11 ' sadece A kolu için genişlik
Columns("b:b").ColumnWidth = 14.71
Columns("C:C").ColumnWidth = 13.43
Columns("D").ColumnWidth = 16.71
Columns("E:E").ColumnWidth = 30
Columns("F:k").ColumnWidth = 9 ' F ve K kolonları dahil genişlik
Columns("G:G").ColumnWidth = 10
Rows("12:12").RowHeight = 15

ActiveSheet.Range("c6") = ActiveCell
ActiveSheet.Range("c6").NumberFormat = ActiveCell.NumberFormat
-------------------------------------------------------------
Arkadaslar söyle bir kodum var.

raporlama olarak kullandıgım bir excel dosyam var acılırken, .mdb dosyasındaki satis rakamlarini otomatik alıyor. sonra da sütunları ona göre ayarlıyor. ve benin tıkladıgım hücreyi de baslık olarak atıyor. diyelimki ben bir ay giriyorum, yada müsteri adı, yada ürün adı; o an tıkladıgım hücre baslık kısmına yazılıyor (C6 hücresi)

ben bunu biraz daha geliştirmek istiyorum şöyleki:

A kolonu: fatura numarası,
B kolonu: işlem cinsi
C kolonu: İşlem tarihi
D kolonu: işlemin yapıldıgı ay
E kolonu: firma adı
F kolonu: ürün adı.

ben o an active cell hangi kolona ait ise, activecell in ona göre format degistirmesini istiyorum. örnegin: e65 hücesinde su var diyelimki:

Elektrokapasitör

ben bu hücreyi sectigimde mevcut dusumda activecell de aynısı "Elektrokapasitör"

yazıyor. ben ise bu kolondan bir ürün sectigimde "Elektrokapasitör satis miktarları" seklinde gözükmesini isitiyorum. yada müsteri isimlerinden biri secildiginde
"******** hesap ekstresi" gibi birsey olusturak istiyorum.

bunu nasıl yapabilirim? zaten autofilter kullanıyorum dosyada, dolayısıyla ay bazında, ürün bazında ve müsteri bazında toplu rakam görebiliyorum. birde bunun yanında eger filtre ettigim dataların basındaki ve sonundaki tarihleride eklemek istiyorum activecell deki baslıga.

"******* Hesap ekstresi Mayıs.07-Temmuz.07 gibi. bana bir başlangıç noktası verin yeter

 

[Ferhat Pazarçevirdi]

ben o an active cell hangi kolona ait ise, activecell in ona göre format degistirmesini istiyorum. örnegin: e65 hücesinde su var diyelimki:

Elektrokapasitör

ben bu hücreyi sectigimde mevcut dusumda activecell de aynısı "Elektrokapasitör"

yazıyor. ben ise bu kolondan bir ürün sectigimde "Elektrokapasitör satis miktarları" seklinde gözükmesini isitiyorum. yada müsteri isimlerinden biri secildiginde
"******** hesap ekstresi" gibi birsey olusturak istiyorum.

Merhabalar,

Kodunuzu aşağıdaki gibi revize ediniz. Ekleme yapılan kısım Kırmızı ile renklendirilmştir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ek As String
    Columns("A:A").ColumnWidth = 8
    Columns("B:B").ColumnWidth = 6
    Columns("C:C").ColumnWidth = 10.71
    Columns("D:D").ColumnWidth = 8.43
    Columns("E:E").ColumnWidth = 14.71
    Columns("F:F").ColumnWidth = 30
    Columns("G:G").ColumnWidth = 9
    Columns("H:H").ColumnWidth = 10
    Rows("12:12").RowHeight = 20
    
[COLOR=red]Select Case Target.Column
      Case 1: Ek = ""
      Case 2: Ek = ""
      Case 3: Ek = ""
      Case 4: Ek = ""
      Case 5: Ek = " Hesap Ekstresi"
      Case 6: Ek = " Satış Miktarları"
      Case 7: Ek = ""
End Select[/COLOR]
[COLOR=#ff0000][/COLOR] 
ActiveSheet.Range("c6") = ActiveCell & Ek
ActiveSheet.Range("c6").NumberFormat = ActiveCell.NumberFormat
End Sub

 

[hakan439]

çok teşekkür ederim sn fpc. harika çalışıyor. küçük bir şey daha sorayım ancak, D dütununda faturaların aylarını tutuyorum. daha dogrusu fatura tarihlerini custom formatta aaa.yy şeklinde tutuyorum ki tek bir aya ait tüm faturaları görebileyim. ancak bu sütuna tıkladığımda activecell de ay degil tarih cıkıyor. byunu nasıl düzeltiriz?