Soru FARKLI SHEETLERE SIRADAKİ İLK BOŞ SATIRA YAZMASI

[zulfuernek]

sheet 1 cv şablonu olarak düzenlendi. command butona tıklayınca sheet 2 ye cv deki bilgileri yanyana yazmalı. cv yi yeniden doldurduğumda sheet 2 de ilk boş satıra yenisini eklemeli

 

[pitchoute]

Makroyu kendinize göre düzenleyip dener misiniz;

Sub CVBilgileriniAktar()
    Dim sonSatir As Long
    Dim cvSheet As Worksheet
    Dim kayitSheet As Worksheet
    
    Set cvSheet = ThisWorkbook.Sheets("Sheet1")   
    Set kayitSheet = ThisWorkbook.Sheets("Sheet2")
    
    sonSatir = kayitSheet.Cells(kayitSheet.Rows.Count, "A").End(xlUp).Row
    
    If sonSatir = 1 And kayitSheet.Cells(1, 1).Value = "" Then
        sonSatir = 1
    Else
        sonSatir = sonSatir + 1
    End If
    
    kayitSheet.Cells(sonSatir, 1).Value = cvSheet.Range("B2").Value 
    kayitSheet.Cells(sonSatir, 2).Value = cvSheet.Range("B3").Value 
    kayitSheet.Cells(sonSatir, 3).Value = cvSheet.Range("B4").Value 
    kayitSheet.Cells(sonSatir, 4).Value = cvSheet.Range("B5").Value 
    kayitSheet.Cells(sonSatir, 5).Value = cvSheet.Range("B6").Value 
    
    MsgBox "CV bilgileri başarıyla aktarıldı!", vbInformation, "İşlem Tamamlandı"
End Sub