Sayfalara İsteğe Bağlı Veri Kaydetme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Sayfa Adı: Verinin kaydedileceği çalışma sayfasının adı.
[*]Veri Girişi: Kaydedilmesi istenen veri.
[*]Satır Numarası: Verinin kaydedileceği satır numarası.
Makro önce, kullanıcının girdiği sayfa adının mevcut olup olmadığını kontrol eder. Eğer sayfa mevcutsa, kullanıcının belirttiği satıra ve ilk sütuna (A sütunu) veriyi yazar. Sayfa mevcut değilse, bir hata mesajı gösterir.
VBA:
Sub VeriKaydet()
Dim wsName As String
Dim data As Variant
Dim inputRow As Long
' Kullanıcıdan çalışma sayfası adı ve veri al
wsName = InputBox("Lütfen verinin kaydedileceği sayfa adını giriniz:", "Sayfa Adı")
data = InputBox("Lütfen kaydedilecek veriyi giriniz:", "Veri Girişi")
' Kullanıcıdan verinin ekleneceği satır numarası al
inputRow = Application.InputBox("Lütfen verinin ekleneceği satır numarasını giriniz:", "Satır Numarası", Type:=1)
' Sayfa adı doğrulama
On Error Resume Next
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(wsName)
On Error GoTo 0
' Eğer sayfa mevcut ise veriyi kaydet
If Not ws Is Nothing Then
ws.Cells(inputRow, 1).Value = data
MsgBox "Veri '" & wsName & "' sayfasının " & inputRow & ". satırına başarıyla kaydedildi!", vbInformation
Else
MsgBox "Hata: '" & wsName & "' adında bir sayfa bulunamadı!", vbExclamation
End If
End SubAçıklama
Bu makro, kullanıcıdan üç giriş alır:[*]Sayfa Adı: Verinin kaydedileceği çalışma sayfasının adı.
[*]Veri Girişi: Kaydedilmesi istenen veri.
[*]Satır Numarası: Verinin kaydedileceği satır numarası.
Makro önce, kullanıcının girdiği sayfa adının mevcut olup olmadığını kontrol eder. Eğer sayfa mevcutsa, kullanıcının belirttiği satıra ve ilk sütuna (A sütunu) veriyi yazar. Sayfa mevcut değilse, bir hata mesajı gösterir.
Önemli Notlar:
- Makro çalıştırıldığında, Excel veri girişi için standart giriş kutuları (input boxes) kullanır.
- On Error Resume Next ve On Error GoTo 0 ifadeleri, sayfa adının geçerli olup olmadığını kontrol ederken oluşabilecek hataları yönetmek için kullanılır. Eğer sayfa adı geçerli değilse, ws değişkeni Nothing olarak ayarlanır ve ilgili hata mesajı kullanıcıya gösterilir.
- Bu makro, veri girişi için genel bir yapı sağlar ve ihtiyaca göre daha fazla özellik eklenerek genişletilebilir.
Bu makro, dinamik ve kullanıcı odaklı veri girişi işlemleri için Excel'de etkili bir yöntem sunar ve farklı senaryolara kolayca uyarlanabilir.
Faydalanılması temennisiyle