Makro Düzenleme, Makro Veriyi Sütunda İlk Boş Hücreye Kayıt Etsin

[1Al2Ver]

Merhaba,

Aşağıdaki kod, ilgili sayfada "B2" de yazan sütun için ve o sütunun son boş hücresine kayıt yapıyor,

Örneğin, "B2" de "D" yazıyor ve son dolu hücre "D15" ise kayıt "D16" ya yapılıyor,

İsteğim, makronun "B2" de yazan sütun için, ilk boş hücreye kayıt yapmasıdır,

Örneğin, "B2" de "D" yazıyor ve son dolu hücre "D15" ise ve ilk boş hücre "D3" ise, "D3" e kayıt yapmalı,

Teşekkür ederim.

Private Sub CommandButton1_Click()
    Dim i As Long, myarr(), s As Long, adrs As String, sut As String
    ReDim myarr(0 To ListBox1.ListCount - 1, 0 To 0)
    sut = Sheets("AYLIK_LİSTE").Range("B2").Value
    For i = 0 To ListBox2.ListCount - 1
        myarr(s, 0) = ListBox2.List(i, 0)
        s = s + 1
    Next i
    sat = Sheets("AYLIK_LİSTE").Cells(Rows.Count, sut).End(xlUp).Row + 1
    Sheets("AYLIK_LİSTE").Cells(sat, sut).Resize(s, 1) = myarr
    i = Empty
End Sub

 

[Orion1]

Örnek dosya yollarsanız,daha çabuk ve doğru yanıt alabilirsiniz.

 

[1Al2Ver]

Sayın Orion1, merhaba,

Öncelikle duyarlığınız için teşekkür ederim,

Dosya 36 sayfalık bir dosya ve UserForm2 CommandButton1'de kayıtlı bir kod,

UserForm2 bilgilerini başka bir çalışma sayfasından alıyor,

O çalışma sayfasının ilgili sütununa da başka bir çalışma sayfasından bilgiler formüllerle alınıyor,

Örnek dosya için bayağı bir ayıklama ve düzenleme yapmam gerekiyor,

O nedenle, olabiliyor ise, eklediğim makro üzerinden bir çözüm rica ediyorum,

Tekrar teşekkür ederim.

 

[Suskun]

Deneyin
sat = Sheets("AYLIK_LİSTE").Range(Sut & 1).End(xlDown).Row + 1

 

[1Al2Ver]

Sayın Suskun merhaba,

Önerdiğiniz düzenleme sorunumu çözdü, teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

Tekrar merhaba,

Alternatif olarak ,

1 no.lu mesajdaki kod'un, sadece bir sütunda ( örneğin ; C sütunu ) ve 17 nci satırdan ( örneğin C17 ) sonraki, ilk boş hücreye işlem yapması için düzenlenmesini arzuluyorum,

Yardımcı olursanız memnun olurum,

Teşekkür ederim.

 

[Suskun]

Merhaba,
sut = Sheets("AYLIK_LİSTE").Range("B2").Value
değerine "C" olarak girerseniz C Sütünunda işlem yapar,
Yada Aşağıdaki şekilde düzenleyerek Sut değişkenini devre dışı bırakın. Diğer sut bölümlerini değiştirmezseniz B2 deki sütun dan işlem yapar

sat = Sheets("AYLIK_LİSTE").Range("C" & 1).End(xlDown).Row + 1
Sheets("AYLIK_LİSTE").Cells(sat, "C").Resize(s, 1) = myarr

 

[1Al2Ver]

Sayın Suskun tekrar merhaba,

Tüm duyarlığınız ve emekleriniz için teşekkür ederim,

Kod gayet güzel çalışıyor,

Saygılarımla.

 

[Suskun]

Kolay gelsin.