[aLha]

Merhaba;

Excel'le ilgili bir sıkıntım var. A ve B sütunları olsun ve bunlarda 10'ar veri olsun. Ben şimdi C sütununda bir aralıkta, A ve B sütunlarındaki verileri alıp alfebetik düzene göre listeleyerek göstermesini istiyorum.

Bir tek listelemesinin dışında, A sütununa yeni bir veri eklediğimde C sütunundaki veriler de yeniden düzenlenerek 21 satırlı bir dizin olsun istiyorum.

Çok mu şey istiyorum?

[biolight]

Merhaba,
Makro vba ile çözümlene bilir sanırım
bu şekilde bir çözüm istermisiniz ?
Kolay gelsin.

[aLha]

valla şahane olur

[biolight]

Merhaba,
Ekte ki zip dosyası içinde kodların çalışır vaziyette excel dosyası bulunmakta
A veya B sütünün da her hangi bir hüçreye veri girişi yapıldığında
kodlar çalışacak ve A ve B sutununda ki verileri
C tutununa yazıp sıralama yapacaktır.

VBA ya ilgi duyanlar için kodlar:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Column = 1 Or Target.Cells.Column = 2 Then
 
 Columns("C:C").Select
 Selection.ClearContents
 
 Dim sonnoA
 sonnoA = ActiveSheet.Range("A65536").End(xlUp).Row
 
 Dim sonnoB
 sonnoB = ActiveSheet.Range("B65536").End(xlUp).Row
 
 Range("A1:A" & sonnoA).Select
 Selection.Copy
 Range("C1").Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
 
 Range("B1:B" & sonnoB).Select
 Selection.Copy
 Range("C" & sonnoA + 1).Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
 
 Columns("C:C").Select
 Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
 DataOption1:=xlSortNormal
 
 Range(Target.Address(False, False)).Select

End If

End Sub

Kolay gelsin.