userform da silinen satır yerine tekrar aynı bağımsız değişken no atma

[mahmyt]

merhabalar;
dab 2020 sayfasında çalıştır işleminde 5.satırda bulunan ıhr2020...001 nolu faturayı sildikten sonra tekrar
userformu çalıştırdıktan sonra sıradaki fatura no yerine dolu hücrelerde aradaki boş satırda sildiğim fatura noyu tekrar
olması gereken satıra atıp ondan sonra devam eden fatura noyu tekrar atmak istiyorum.
internette aradım ama dolu hücreler arasında boş satır bulmayı bulamadım
yardımcı olursanız sevinirim iyi çalışmalar

 

[mahmyt]

daha kısa olarak 5.satırdaki doğru bilgileri tekrar 5.satıra userform ile nasıl doldurabilirim

 

[Ömer]

Merhaba,

Doğru bilgiden kastınız nedir?

 

[mahmyt]

ömer bey exceli paylaşmak istedim ama doğru mu yaptım bilmiyorum ilk yazıda dab yazan kısımdadır.
5.satırda ıhr2020.001 yazıyordu sildim tekrar userformla ıhr2020.001 atmak istiyorum maalasef ki 6. ve 7. satırlar dolu oldugundan dolayı 8.satıra
7.satırdakinin 1 fazlası atıyor 5.satır boş kalıyor

 

[Ömer]

Dosyanızı incelemiştim, veri az olduğu için çok anlayamadım. 8-10 satırlık bir dosya ekleyerek daha detaylı açıklar mısınız.
Ayrıca;
sonsatır = S2.Range("A5:A" & Rows.Count).End(xlUp).Row + 1

Bu tanımı ne için yaptınız. Son satırı bulmak içinse yanlış olmuş. Yeni bir dosya ekleyerek daha detaylı açıklama yaparsanız sevinirim.

 

[mahmyt]

Dosyanızı incelemiştim, veri az olduğu için çok anlayamadım. 8-10 satırlık bir dosya ekleyerek daha detaylı açıklar mısınız.
Ayrıca;
sonsatır = S2.Range("A5:A" & Rows.Count).End(xlUp).Row + 1

Bu tanımı ne için yaptınız. Son satırı bulmak içinse yanlış olmuş. Yeni bir dosya ekleyerek daha detaylı açıklama yaparsanız sevinirim.

hocam dab yeni excelde 8.faturayı userformdan sildikten sonra tekrar fatura no eklemek istersem bos satıra eklemek istiyorum ancak
formülden dolayı 15. satıra 11 nolu fatura numarasını atıyor.
sildiğim fatura noyu aynı satıra nasıl tekrar yükleyebilirim.

 

[Ömer]

Yine eski dosyayı eklemişsiniz. 2 satır ve eksik veri var.

 

[mahmyt]

ömer bey dab excelde yapmak istediğim örneğin 5. satırdan 16.satıra kadar fatura no varken daha sonra 5.satırdaki verileri silip tekrar 5. satıra normalde silmeden önceki fatura numarasını girmek istiyorum ama kaydet dediğimde takip eden fatura numarasını 17.satıra atıyor yani 16. satır
12 nolu fatura ise 17. satıra otomatik 13 nolu faturayı atıyor ancak ben ilk olarak 5 nolu satıra 1 nolu fatura no atmasını istiyorum

 

[Ömer]

sonsatır = S2.Range("D" & Rows.Count).End(xlUp).Row + 1

yerine aşağıdaki satırları yazın.

    ilk = Range("D4").End(xlDown).Row

    If ilk <> S2.Range("D" & Rows.Count).End(xlUp).Row Then
        sonsatır = ilk - 1
    Else
        sonsatır = S2.Range("D" & Rows.Count).End(xlUp).Row + 1
    End If

 

[mahmyt]

sonsatır = S2.Range("D" & Rows.Count).End(xlUp).Row + 1

yerine aşağıdaki satırları yazın.

    ilk = Range("D4").End(xlDown).Row

    If ilk <> S2.Range("D" & Rows.Count).End(xlUp).Row Then
        sonsatır = ilk - 1
    Else
        sonsatır = S2.Range("D" & Rows.Count).End(xlUp).Row + 1
    End If

hocam sizi de yordum ama ilk = Range("D4").End(xlDown).Row yanlıs biliyorsam düzeltirseniz d4 ün altındaki satır demek midir eğer öyleysee ben 11. satırı sildiğim zaman bu formül işlememektedir.

 

[mahmyt]

yani demek istediğim 5. yada 111. satır farketmez sildikten sonra tekrar veri girişinde sildiğim fatura no gelsin işlemini nasıl yapılabilir

 

[Ömer]

Aralıktaki ilk boş satıra ( atlama olsa bile yinede aralıktaki ilk boş satıra) ilgili faturanın numarası mı yazılacak?

sonsatır = S2.Range("A" & Rows.Count).End(xlUp).Row + 1

yerine, aşağıdaki satırları yazın.

    sonsatır = S2.Range("D" & Rows.Count).End(xlUp).Row + 1
    x = WorksheetFunction.CountA(S2.Range("D5:D" & sonsatır - 1)) + 4
    
    If x <> sonsatır - 1 Then
        For Each y In S2.Range("D5:D" & sonsatır - 1).SpecialCells(xlCellTypeBlanks)
            sonsatır = y.Row
            Exit For
        Next
    End If

 

[mahmyt]

teşekkür ederim allah razı olsun hocam
evet aralıktaki ilk boş satıra atacaktı teşekkür ederim hocam

 

[mahmyt]

Hocam yazdıklarınızı cok iyi anladım biraz araştırmayla
Bir de 23 tane textbox için değer yazdım ama hepsine daha az bir formül yazabilir miyim
Mesela
Textbox1.value=""
Textbox2.value=""
Textbox3.value=""
.
.
.
Enson textbox23.value="" bunun bir kısa yolu var mıdır

 

[Ömer]

Deneyiniz.

For i = 1 To 23
Controls("TextBox" & i) = ""
Next i