belirli satırın son sütunu sayısını bulmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

belirli satırın son sütunu sayısını bulmak

İleti#1)  a_self_lion » 16 Nis 2018 21:07

Merhaba arkadaşlar;

Kod: Tümünü seç
'son sutunu buluyoruz ve ordan yazdırmaya başlıyoruz
Dim iSonSutun As Variant, ws As Worksheet

Set ws = Worksheets("" & CStr(ActiveSheet.Name) & "")

''' sayfadaki son sutun numarasını veriyor ama genel olarak herhangi birisi

'iSonSutun = ws.Cells.SpecialCells(xlCellTypeLastCell).Column


''' ben istiyorum 5 nci satırdaki son sutun numarasını arada boşluklar olabilir en sonu istiyorum.

iSonSutun = ws.Cells(5, ws.Columns.Count).End(xlToLeft)


'çıktı
Cells(10, 1).Value = iSonSutun



iSonSutun = ws.Cells(5, ws.Columns.Count).End(xlToLeft)

Yukarıdaki gibi denedim ama bana son sütunu buluyor fakat sayısı değilde içeriğinde ne yazıyorsa onu getiyor.
Ben o sütün sayısını öğrenmek istiyorum. 5 gibi 120 gibi vb....

Teşekkürler
Kullanıcı avatarı
a_self_lion
Siteye Alışmış
 
Adı Soyadı:Özcan özarslan
Kayıt: 22 Arl 2008 13:34
Konum: Bilgi İşlem
Meslek: Bilgi İşlem Cost Costrol
Yaş: 39
İleti: 167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: belirli satırın son sütunu sayısını bulmak

İleti#2)  Enes Recep BAĞ » 16 Nis 2018 23:28

sonsatır=range("a65536").end(3).row
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8171
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: belirli satırın son sütunu sayısını bulmak

İleti#3)  a_self_lion » 17 Nis 2018 10:19

Kod: Tümünü seç
iSonSutun = ws.Cells(5, ws.Columns.Count).End(xlToLeft).[color=#FF0000]Column[/color]

Bu şekilde yapınca işimi gördü.
Kullanıcı avatarı
a_self_lion
Siteye Alışmış
 
Adı Soyadı:Özcan özarslan
Kayıt: 22 Arl 2008 13:34
Konum: Bilgi İşlem
Meslek: Bilgi İşlem Cost Costrol
Yaş: 39
İleti: 167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, omekoc2525, Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe