Aynı Hücreye Girilen Veriye Yeni Sütuna Yazdırma

[ygzsmsk]

Arkadaşlar merhaba,

Aslında istediğim çok basit bir şey sanırım ki ama bir türlü beceremedim.

A1 hücreme her veri girdiğimde bir sütun atlayarak yazdırsın istiyorum. Örneğin A1'e veri girdiğimde önce B1'e yazdırsın sonra yeni bir veri girdiğimde C2'ye yazdırsın şeklinde.

Benzer bir kodu satır atlama için kullanıyordum fakat sütun atlamayı beceremedim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
    For i = 1 To Workbooks("Dosya1.xlsx").Worksheets("Sayfa1").Range("B65535").End(xlToRight).Offset(1, 0).Column
   If Workbooks("Dosya1.xlsx").Worksheets("Sayfa1).Range("B" + CStr(i)).Value = "" Then
      Workbooks("Dosya1.xlsx").Worksheets("Sayfa1").Range("B" + CStr(i)).Value = Target.Value
     Exit For
    End If
 Next i
End If


End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu kullanabilirsiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SutunSay As Long
    If Target.Address = "$A$1" Then
        With Workbooks("Dosya1.xlsx").Worksheets("Sayfa1")
            SutunSay = .Cells(1, .Columns.Count).End(1).Column
            .Cells(1, SutunSay + 1) = Target
        End With
    End If
End Sub

 

[ygzsmsk]

Merhaba.

Aşağıdaki kodu kullanabilirsiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SutunSay As Long
    If Target.Address = "$A$1" Then
        With Workbooks("Dosya1.xlsx").Worksheets("Sayfa1")
            SutunSay = .Cells(1, .Columns.Count).End(1).Column
            .Cells(1, SutunSay + 1) = Target
        End With
    End If
End Sub

İlginiz için çok teşekkür ederim ama kod çalışmadı

 

[ygzsmsk]

İlginiz için çok teşekkür ederim ama kod çalışmadı

Sanırım ben de bir hata olmuş. Şimdi Çalıştırdım.

Peki bu işlemi spesifik bir hücreden başlatmak istersem ne yapmam gerekiyor? Örneğin bu işlemi yapmaya u14'ten başlamasını istersem ?

 

[Muzaffer Ali]

 .Cells([COLOR="Red"]1,[/COLOR] SutunSay + 1)

kırmızı işaretli olan 1 rakamı 1. satırı ifade ediyor. Buraya istediğiniz satır numarasını yazabilirsiniz.

SutunSay + 1, kısmı ise 1. satırdaki ilk boş hücreyi ifade ediyor.
Eğer siz ikinci boş hücreye ulaşmak isterseniz SutunSay + 2 yazmalısınız.

 

[ygzsmsk]

teşekkür ederim halletim çok sağolun