makro ile aktarma

[msanli]

selam,

ekteki dosyada sayfa1 bulunan verilerin sayfa2 aktarılması için ne yapabiliriz.

Tşk.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları Sayfa2 adlı sheet'in kod modülünü kopyalayınız.

NOT : Sayfa2'deki B sütununda hücre tiplerini "Metin/Text" olarak ayarlayınız ki; hücreler girdiğiniz değeri tarih olarak algılamasın ...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rg As Range
    Dim stn%, sat%, y%, i%
    
    On Error GoTo HataYakala
    
    If Target.Column = 2 And Target.Row > 8 Then
        Range(Cells(Target.Row, 4), Cells(Target.Row + 1, 10)).ClearContents
        
        If InStr(1, Target, "-", vbTextCompare) > 0 Then
            
            With Sheets("Sayfa1")
                Set rg = .Columns(1).Find(Left(Target, InStr(1, Target, "-", vbTextCompare) - 1), Lookat:=xlWhole)
                
                If Not rg Is Nothing Then
                    y = 4
                    Application.EnableEvents = False
                    Cells(Target.Row, 1) = Application.WorksheetFunction.Max(Range("A9:A500")) + 1
                    
                    For i = 3 To 16 Step 2
                        Cells(Target.Row, y) = .Cells(rg.Row, i)
                        Cells(Target.Row + 1, y) = .Cells(rg.Row, i + 1)
                        y = y + 1
                    Next i
                    
                    Application.EnableEvents = True
                    Set rg = Nothing
                
                End If
            End With
        
        End If
    
    End If
    
    Exit Sub
HataYakala:
Application.EnableEvents = True
End Sub

 

[msanli]

Ferhat bey,

Kodları sayfa2'nin modülüne kopyaladım ama çalıştıramadım...

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

 

[msanli]

bu makronun çalışması için farklı birşey yapmak gereklimi? sayfa1 den değerleri nasıl alacak? çünkü sayfa1 bir değer girdiğimde sayfa2'de göremiyorum...

 

[Ferhat Pazarçevirdi]

Siz, Sayfa2'deki B sütununa "1-1", "2-2","3-3" ... gibi değerler girildiğinde, Sayfa1'den bilgilerin okunup gelmesini istememiş miydiniz?

Sayfa2'deki B sütununa veri girin ("B9" hücresine girdiğiniz gibi ....)

Dosyanızda yaptığınız açıklamalardan, anlaşılan bu ...

 

[msanli]

bir yanlış anlaşılma var, ben verileri sayfa1'den gireceğim. girdiğim veriler sayfa2'de ki yerlere aktarılacak.