Kolonlar arası veri kaydırma

[karabey47]

Selamlar
Arkadaşlar ekte örneğini verdiğim tabloyu nasıl yaparım. Yardımlarınız için şimdiden teşekkürler.

(A sütununda birbirine eşit olan rakamların karşılarındaki (B sütunundaki) rakamları c.d.e... sütunlarına taşımak istiyorum.)

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Duzenle()
 
    Dim i   As Long, _
        ilk As Long, _
        Son As Long, _
        j   As Integer, _
        Esk As String
 
    Son = Cells(Rows.Count, "A").End(3).Row
 
    Application.ScreenUpdating = False
 
    Range("A1:B" & Son).Sort Key1:=[A1], Key2:=[B1]
 
    ilk = 0
 
    For i = 1 To Son
        If Not Cells(i, "A") = Esk Then
            Esk = Cells(i, "A")
            ilk = i
            j = 2
        Else
            j = j + 1
            Cells(ilk, j) = Cells(i, "B")
            Cells(i, "B").ClearContents
        End If
 
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "İşlem Tamamdır....", vbInformation, "N. YEŞERTENER -- [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
 
End Sub

 

[karabey47]

Merhaba
Necdet bey cevabınız için çok teşekkür ediyorum. bir modüle kopyalayıp deneyin demişsiniz ama
ben tam olarak anlayamadım. Biraz açabilir misiniz.

 

[Necdet]

Merhaba
Necdet bey cevabınız için çok teşekkür ediyorum. bir modüle kopyalayıp deneyin demişsiniz ama
ben tam olarak anlayamadım. Biraz açabilir misiniz.

Örnek dosyanın içinde zaten kodlar mevcut.

 

[kursatsenol]

Merhabalar,

Sormak istediğim soru bu konuya uygun olduğu için buraya yazıyorum.

Oluşturmaya çalıştığım tablomda A1 hücresine veri girildiğinde B1 hücresine yazması ve sonraki veri girişlerinde önceki girilen verileri B1:Z1 hücreleri arasında kaydırması. Z1 den sonra B2:Z2 arasında aynı işlemi yapması gerekiyor. (A1 sadece veri giriş hücresi olarak kullanılacak.)

Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Ömer BARAN]

Oluşturmaya çalıştığım tablomda A1 hücresine veri girildiğinde B1 hücresine yazması ve sonraki veri girişlerinde önceki girilen verileri B1:Z1 hücreleri arasında kaydırması. Z1 den sonra B2:Z2 arasında aynı işlemi yapması gerekiyor. (A1 sadece veri giriş hücresi olarak kullanılacak.).

Merhaba.
Alt taraftan işlem yapılacak sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında
sağdaki boş alana aşağıdaki kod'u yapıştırın (belgeyi MAKRO İÇEREN veya xls dosya türüyle kaydetmeyi unutmayınız).

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target <> "" Then
sat = WorksheetFunction.Max(1, Cells(Rows.Count, "B").End(3).Row)
sut = WorksheetFunction.Max(2, Cells(sat, Columns.Count).End(xlToLeft).Column)
If sut = 26 Then: sat = sat + 1
Cells(sat, 2).Insert Shift:=xlToRight: Cells(sat, "B") = Target: Target.Activate: Target = ""
End If
End Sub