Bir satırdaki son dolu sütun

[selveroz]

Merhabalar,

Ben makromda bir satırdaki (örneğin 3. satırdaki) son dolu sütuna veri girmek istiyorum. Bunun için hangi komutu kullanabilirim?

Şimdiden teşekkürler,

 

[Necdet]

Merhaba,

Fikir vermek açısından, bulunduğunuz satırda son hücreye gider.

Sub SonHücre()
Dim SonKolon As Integer
SonKolon = Cells(ActiveCell.Row, 256).End(xlToLeft).Column + 1
Cells(ActiveCell.Row, SonKolon).Select
End Sub

 

[selveroz]

Çok teşekkür ederim. Sizin yazdığınız koddan yararlanarak ile 3. satırdaki sonkolonu şöyle buldum:

Sonkolon = Cells(3, 256).End(xlToLeft).Column + 1

Daha sonra alttaki kod ile son dolu sütundaki son dolu satırı bulmak istiyorum:

Sonsatir = Range(Sonkolon & "65536").End(3).Row + 1

Ama hata veriyor

Önerisi olan?

 

[Necdet]

Merhaba,

3. satırdaki son kolonu bulduktan sonra yazdığınız kod hatalı.

Sonsatir = Cells(65536, Sonkolon).End(3).Row + 1

 

[selveroz]

Çok teşekkür ederim:mutlu:

 

[isteobenim]

Merhaba,

Son boş sütunu bulduğumuz aşağıdaki koda ilave olarak,
Bulunan hücrenin bulunduğu sütun seçilip , değişken bir değer kadar sütun eklemesi nasıl yapılabilir?

Merhaba,

Fikir vermek açısından, bulunduğunuz satırda son hücreye gider.

Sub SonHücre()
Dim SonKolon As Integer
SonKolon = Cells(ActiveCell.Row, 256).End(xlToLeft).Column + 1
Cells(ActiveCell.Row, SonKolon).Select
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub SonHücre()
    Dim Satir As Long, SonKolon As Integer, Ekle As Integer
    Ekle = 3
    Satir = ActiveCell.Row
    SonKolon = Cells(Satir, 256).End(xlToLeft).Column + 1
    Range(Cells(Satir, SonKolon), Cells(Satir, SonKolon + Ekle - 1)).EntireColumn.Insert
End Sub

 

[isteobenim]

Günaydın,

Teşekkür ederim,

 

[Tevfik_Kursun]

Sayın Necdet Yeşertener Hocam ve Sayın Korhan Ayhan Hocam,
Konuyu şimdi tesadüfen gördüm. Demoda (20 öğrencilik) çok düzgün çalışan makro,

Sub GitAraBulYazOtur2()
    Set s1 = Sheets("Goster"): Set s2 = Sheets("NotYaz")
        sat = WorksheetFunction.Match(s1.Cells(1, "E"), s2.Range("H:H"), 0)
        süt = s2.Cells(sat, 400).End(1).Column + 1
            s2.Activate: s2.Cells(sat, süt + 1).Activate
            s2.Cells(sat, süt) = Date
End Sub

650 öğrencilik okul listesi devreye girdiğinde 4 satır ileriye atıyor kendini. İstenen kişinin olduğu satırı doğru buluyor ama 12. hücre boş olmasına rağmen 16. hücreye gidip tarih atıp 17. hücrede bekliyor. Halbuki 12. hücreye tarih atıp 13. hücrede beklemeli. Bunu neden yapıyor olabilir?

Sayın Arkadaşlarım,
Yenileme sırasında ilk 4 sütun boşlukla dolmuş, hata bu nedenle oluşuyormuş. Hepinize çok teşekkür ederim.
Saygılarımla