Son Dolu Satır (Formul içerebilir ama içeriği boş olan)

[hsayar]

daha evvelden
SnDlSt = [G65536].End(3).Row

bunu kullanıyordum.

ancak şimdi bir sorun çıktı

g sütununda 130. satıra kadar
=EĞER(A17=0;"";EĞER(F17>0;"B";EĞER(F17<0;"A";EĞER(F17=0;"")))
satırı çoğaltılmış halde

ve 17. satırda formul değer yazıyor
18 den itibaren "" kriteri dönüyor.

bana sonuç olarak 17 değeri lazım

nasıl bir yöntem izlemiliyim.

 

[Necdet]

Merhaba,

A&#351;a&#287;&#305;daki kodu dener misiniz?

Sub Bul()
For i = 1 To [G65536].End(3).Row
    If Cells(i, "G") = "" Then Exit For
Next i
SnDlSt = i - 1
MsgBox SnDlSt
End Sub

 

[hsayar]

hocam 0 d&#246;n&#252;yor.

sebebi g1:g8 aral&#305;&#287;&#305;nda birle&#351;tirilmi&#351; h&#252;creler var birle&#351;tirilmi&#351; h&#252;creleri kald&#305;r&#305;nca do&#287;ru sonucu buldum ama

birle&#351;ik kalmas&#305; laz&#305;m.

 

[Necdet]

Merhaba,

Ben kendi basit verilerde yaptığım denemede sonuca ulaştım. Sizdeki durumu bilmediğim için bilemiyorum. Aşağıdaki kodları tekrar dener misiniz?

Sub Bul()
For i = 1 To [G65536].End(3).Row
    If Not Cells(i, "G").MergeCells And Cells(i, "G") = "" Then Exit For
Next i
SnDlSt = i - 1
MsgBox SnDlSt
End Sub

 

[hsayar]

hocam ilk kodunuzdan ilham ald&#305;m ve buldum

Sub Bul2()
For i = 1 To [G65536].End(3).Row
    If Cells(i, "G") <> "" Then
        SnDlSt = Cells(i, "G").Row
    End If
Next i
MsgBox SnDlSt
End Sub

 

[hsayar]

4.mesajdaki kodunuz g s&#252;tununda ilk birle&#351;tirilmemi&#351;i buluyor.
ilgilenen arkada&#351;lar olabilir.

 

[hsayar]

Sub Bul21()
'ilk dolu satır
For i = 1 To [G65536].End(3).Row
    If Cells(i, "G") <> "" Then
        SnDlSt = Cells(i, "G").Row
        Exit For
    End If
Next i
MsgBox SnDlSt
End Sub

buda ilk dolu sat&#305;r

 

[Necdet]

Merhaba,

Benim örnek dosyam ekteki gibiydi.

 

[hsayar]

benimkide a&#351;a&#287;&#305;da

Sub Alansec()
    'ilk satırları birleştirilmiş, boş ama formül içeren hücreleri olan sütunda son satırı bulur
    For i = 1 To [G65536].End(3).Row
        If Cells(i, "G") <> "" Then
            SnDlSt = Cells(i, "G").Row
        End If
    Next i
    Range("A1:G" & SnDlSt).Select: Selection.Copy
    Call SeciliAlaniWordeYapistir(42.55, 42.55, 25, 25, "dky")
End Sub

Private Sub SeciliAlaniWordeYapistir(ust, alt, sol, sag, yon)
'A4 sayfas&#305;
Application.ScreenUpdating = True
    'Range("A1:L5" & SnDlSt + 7).Copy
    Set objword = CreateObject("Word.Application")
    Set Mydoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
    objword.Visible = True
    
    With Mydoc.PageSetup
        .TopMargin = ust '42.55
        .BottomMargin = alt    '42.55
        .LeftMargin = sol     '25#
        .RightMargin = sag    '25#
        If yon = "dky" Then
            .PageWidth = 595.35 'CentimetersToPoints(21)
            .PageHeight = 841.95 'CentimetersToPoints(29,7)
        Else
            .PageWidth = 841.95 'CentimetersToPoints(29.7)   'yataysayfa
            .PageHeight = 595.35 'CentimetersToPoints(21)    'yataysayfa
        End If
    End With
    objword.Selection.PasteSpecial Link:=False, DataType:=10
    Application.CutCopyMode = False
Set objword = Nothing:      Set Mydoc = Nothing
Application.ScreenUpdating = False
End Sub

bir arkada&#351;&#305;n msnden sordu&#287;u soru ile kafama tak&#305;lm&#305;&#351;t&#305;...
bir soru soruldu ben bilmedi&#287;im bir &#351;ey &#246;&#287;rendim
bir &#351;eyide ileri a&#351;amaya ta&#351;&#305;d&#305;m.