Kayıt sayfasında bulunan verinin data sayfasına kayıt edilmesi

[cihan.sak]

Merhaba

Excel'de oluşturduğum çalışma kitabında 2 sayfa var Bu sayfalardan kayıt sayfası detayların girileceği bölüm ikinci sayfada da bunlar kayıt edildikten sonra data sayfası işlemi tersine çevirerek alt altta yapıştıracağı bölüm var. sadece 1-10 bölümlerini alıp data sayfasına ilgili yerlere kayıt edecek bu düzen bozulmayacak. ileride ihtiyaç duyulması halinde aynı şekilde 11 bölüm eklenebilir. Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Örnek dosya Linki. https://dosya.co/rhgx2ftc71kk/Takip.xlsx.html

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    
    Dim S1 As Worksheet, i As Long, sut As Integer
    
    Set S1 = Sheets("KAYIT")
    
    Application.ScreenUpdating = False
    Sheets("DATA").Select
    Rows("2:" & Rows.Count).ClearContents
    
    sut = 4
    For i = 5 To S1.Cells(Rows.Count, "A").End(xlUp).Row Step 11
        S1.Cells(i, "B").Resize(10, 1).Copy
        Cells(2, sut).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
        sut = sut + 11
    Next i
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

 

[cihan.sak]

Merhaba,

Deneyiniz.

Sub test()
  
    Dim S1 As Worksheet, i As Long, sut As Integer
  
    Set S1 = Sheets("KAYIT")
  
    Application.ScreenUpdating = False
    Sheets("DATA").Select
    Rows("2:" & Rows.Count).ClearContents
  
    sut = 4
    For i = 5 To S1.Cells(Rows.Count, "A").End(xlUp).Row Step 11
        S1.Cells(i, "B").Resize(10, 1).Copy
        Cells(2, sut).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
        sut = sut + 11
    Next i
  
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
  
End Sub

özür dilerim ben anlatırken hatalı anlatmış olabilirm. sadece kayıt sayfasından k5 ile k14, k16 ile k25, k27 ile 36 ve bu şekilde 10'uncu bölüme kadar olan kısımı data sayfasında ilgili yerine k5 ile k14 alıp d2 ile m2 yapıştıracak k16 ile k25 aralığınıda o2 ile x2 aralıgına yapıştıracak şekilde olmakla beraber sadece k sütunundaki verileri yapıştıracak. ve ben her veri oluşturduğumda kayıt dediğimde 1 alt satıra yapıştıracak sıra sıra bir veri seti elde etmeyi planlıyorum

 

[Ömer]

Deneyiniz.

Sub test()
    
    Dim S1 As Worksheet, i As Long, sut As Integer, sat As Long
    
    Set S1 = Sheets("KAYIT")
    
    Application.ScreenUpdating = False
    Sheets("DATA").Select

    sut = 4
    sat = [D:IV].Find("*", , , , xlByRows, xlPrevious).Row + 1
    For i = 5 To S1.Cells(Rows.Count, "A").End(xlUp).Row Step 11
        S1.Cells(i, "K").Resize(10, 1).Copy
        Cells(sat, sut).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
        sut = sut + 11
    Next i
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

 

[cihan.sak]

Deneyiniz.

Sub test()
 
    Dim S1 As Worksheet, i As Long, sut As Integer, sat As Long
 
    Set S1 = Sheets("KAYIT")
 
    Application.ScreenUpdating = False
    Sheets("DATA").Select

    sut = 4
    sat = [D:IV].Find("*", , , , xlByRows, xlPrevious).Row + 1
    For i = 5 To S1.Cells(Rows.Count, "A").End(xlUp).Row Step 11
        S1.Cells(i, "K").Resize(10, 1).Copy
        Cells(sat, sut).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
        sut = sut + 11
    Next i
 
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
 
End Sub

buton ekledim ona atadım oraya herhangi bir yazılar yazıyorum zaten buradaki veriler sayı ya da metin olacak. yapıyorum olmuyor siz denediniz mi

modüle yapıştırdığımda böyle bir hata veriyor. can't perform requested operation

 

[cihan.sak]

buton ekledim ona atadım oraya herhangi bir yazılar yazıyorum zaten buradaki veriler sayı ya da metin olacak. yapıyorum olmuyor siz denediniz mi

modüle yapıştırdığımda böyle bir hata veriyor. can't perform requested operation

tekrar denedim şimdi hata vermiyor ancak yapıştırmıyor verileri

 

[Ömer]

Data sayfasında font rengi beyaz, veriler geliyor fakat gözükmüyor olabilir mi?
Font rengini değiştirip deneyin. Yinede hata alırsanız içinde örnek veri olan dosya ekleyin.