Veri Kaydetme

[eshiyok]

Merhabalar ben excelde bir tablo hazırlamak istiyorum. bu tablonun özellikleri aşağıdaki gibi olacak...

Excel dosyası iki sekmeden oluşacak.

1. sekmemde hazır birşablonum olacak şablonda isim, soy isim, adres vb. bilgiler girilecek her seferinde....

2. sekmemde de bu daha önceden girdiğim veriler satır satır hepsi kaydedilecek...


böyle birçalışma için nasıl biryol izlemem gerekir yardımcı olur musunuz?

 

[mancubus]

sitede o kadar çok örnek var ki kayıt konusunda.
sormadan önce aramak çok yarar sağlayacaktır.


yine de...

ekteki gibi bir şey ile başlanabilir.

 

[eshiyok]

sitede o kadar çok örnek var ki kayıt konusunda.
sormadan önce aramak çok yarar sağlayacaktır.


yine de...

ekteki gibi bir şey ile başlanabilir.

teşekkür ederim verdiğin ekteki örnek hep aynı satura yızıyor veriyi bir sonraki satıra yazmıyor... öyle olsa süper olacak

 

[mancubus]

sayfadaki kodda eski koddan wks bırakmışım. onu silmek yeterli. aşağıda kırmızı ile belirttim. NOKTA'yı silmiyoruz. aman dikkat.

son_sat ı da with bloku içine aldım.

Private Sub CommandButton1_Click()

    Dim son_sat As Long
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    On Error Resume Next
    
    Set ws1 = Worksheets("KayıtGiriş")
    Set ws2 = Worksheets("VeriTabanı")
    
    With ws2
        son_sat = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        .Cells(son_sat, 1).Value = [B][COLOR="Red"]Application.Max(.Range("A:A")) + 1[/COLOR][/B]
        .Cells(son_sat, 2).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
        .Cells(son_sat, 3).Value = ws1.Range("B2").Value
        .Cells(son_sat, 4).Value = ws1.Range("B3").Value
        .Cells(son_sat, 5).Value = ws1.Range("B4").Value
        .Cells(son_sat, 6).Value = ws1.Range("B5").Value
        .Cells(son_sat, 7).Value = ws1.Range("B6").Value
        .Cells(son_sat, 8).Value = ws1.Range("B7").Value
        .Cells(son_sat, 9).Value = ws1.Range("B8").Value
        '...
        '...
        '...
        
    End With
        
    ws1.Range("B2:B10").ClearContents
    
End Sub

 

[eshiyok]

Aslında şablonum ekli dosyada ki gibi olacak ve dosyada data sekmesinde olan geliş tarihi ( kaydettiğim tarih) isim soy isim, telefon no, adres, marka model, ımeı no, aksesuar ve cihaz şikayetini şablon sayfasından alıp bunların hepsi doldurulduktan sonra kaydet yapılacak... bu bilgilerden biride eksik olmayacak...

 

[eshiyok]

öncelikle tekrardan teşekkür etmek istiyorum. daha önceden hiç vb kullanmadım macro nedir bilmiyorum ama senin gönderdiğin açık kod ile benzeterek aşağıdaki ekli dosyayı son haline getirebildim. bir kaç sorum daha olacak...

1) dosyayı kapat kaydet dedikten sonra gizlilik uyarısı " bu belge makrolar activex,xml genişletme paketleri tarzı bir uyarı veriyor... bunun nedeni kodda bir yanlışlık olması yoksa office in ayarları ile mi alakalı

2) şablonda yazan yerlerin hepsi dolmadan kaydetmesini istemiyorum. bunun için ne yapılabilir?

 

[eshiyok]

doğrusu bu son gönderdiğim xls uzantası ile kaydetince kodlar durdu... şimdi
1) dosyayı kapat kaydet dedikten sonra gizlilik uyarısı " bu belge makrolar activex,xml genişletme paketleri tarzı bir uyarı veriyor... bunun nedeni kodda bir yanlışlık olması yoksa office in ayarları ile mi alakalı

2) şablonda yazan yerlerin hepsi dolmadan kaydetmesini istemiyorum. bunun için ne yapılabilir?