vba ile sabit satır ekleme yardım

[koboy]

Merhabalar excel dosyasında bilgileri yazdım alt kısım sabit kalacak sayfa1den praforma sayfasına verileri eklemek istiyorum

 

[YUSUF44]

Ekli dosyayı inceleyiniz:

 

[koboy]

yusuf bey merhaba evet istediğim bu tarz ançak 66 dan başlıyor benim başlangıcım 17 ama bitir yeri belli değil onu nasıl yapabilirim

kosul versek E sütunda TOTAL PRICE bunun üstünden başlasa gibi

 

[YUSUF44]

66'dan başlamıyor, o son satır. En fazla 50 satır olarak düşündüm. 50 satırdan fazla olur mu? Olmazsa dosyada deneme yapıp sonucu görebilirsiniz.

 

[koboy]

bazen olabiliryor. Koşullu yapsa imkanı var mı ?

 

[YUSUF44]

100 yaparız mesela, ya da 500 ?

 

[koboy]

hocam bu şekilde olur tek birşey isteyebilir miyim bu toplam kısımları formüş yerine makro ile nasıl yaparım

 

[koboy]

hocam satırları sildim mi komple alt kısım birbirne giriyor bunu başka yöntemi var mı acaba

 

[YUSUF44]

Teker teker ilerleyelim.

Satır sayısının arttırılmasını istiyor musunuz?

 

[koboy]

Teker teker ilerleyelim.

Satır sayısının arttırılmasını istiyor musunuz?

satır sayısı sayfa1 rakam kadar otomaik artırırıp praforma sayfasına eklenmesini istiyorum

TOTAL PRICE dahil alt kısımların örnek satır 20 de bitti 21 direk başlayabilir.

çünkü satır silindiğinde TOTAL PRICE kısmına giriyor veriler

 

[YUSUF44]

Benim örneğimde satır silme yok, çünkü siz de fark ettiniz, satır silme farklı sıkıntılara yol açıyor. Ben boş satırların gizlenmesini sağlıyorum. Onun için önceden belirlenen bir maksimum satır sayısı olursa ona göre ilerleriz.

 

[YUSUF44]

#2 nolu mesajdaki dosyayı değiştirdim, inceleyiniz.

 

[koboy]

Benim örneğimde satır silme yok, çünkü siz de fark ettiniz, satır silme farklı sıkıntılara yol açıyor. Ben boş satırların gizlenmesini sağlıyorum. Onun için önceden belirlenen bir maksimum satır sayısı olursa ona göre ilerleriz.

merhaba satır silme mutlaka oluyor satır gizleme yapınca örnek bir sipariş 15 bi sipariş 10 kalem olunca altta 5 kalem diğer siparişten kalıyor

 

[YUSUF44]

Örnek dosyamı denediniz mi? Dosya Sayfa2'deki verilere göre işlem yapıyor. Sayfa2'de kaç satır varsa o satırları aktarıyor. Öncesinde eski verileri sildiği için bahsettiğiniz sorun oluşmaz.

 

[koboy]

Örnek dosyamı denediniz mi? Dosya Sayfa2'deki verilere göre işlem yapıyor. Sayfa2'de kaç satır varsa o satırları aktarıyor. Öncesinde eski verileri sildiği için bahsettiğiniz sorun oluşmaz.

teşekkür ederim son haliyle kullanıyorum

 

[koboy]

Örnek dosyamı denediniz mi? Dosya Sayfa2'deki verilere göre işlem yapıyor. Sayfa2'de kaç satır varsa o satırları aktarıyor. Öncesinde eski verileri sildiği için bahsettiğiniz sorun oluşmaz.

yusuf hocam merhaba bir yardım daha ihtiyaçım var

 

[YUSUF44]

Merhaba.

Buyrun, sorun. Ben olamasam da başkaları yardımcı olacaktır diye düşünüyorum.

 

[koboy]

proforma sayfası 17 den başlıyor örnek kod yazdım
b17
b18
b19

veri sayfasından A2 den başlayın verileri bulup nasıl praforma sayfasına aktarabilirim

Sub fatura()
Set s1 = Sheets("PROFORMA INV.")
Set s2 = Sheets("veri")

son = s2.Cells(Rows.Count, "A").End(3).Row

s1.[B17:G116].ClearContents
s1.Rows("17:116").Hidden = False

sat = 17
son2 = s1.Cells(Rows.Count, "A").End(3).Row

For i = 17 To son2
    If s1.Cells(i, "B") = s2.Cells(i, "A") Then
 
        s1.Cells(sat, "C") = s2.Cells(i, "L")
        s1.Cells(sat, "D") = s2.Cells(i, "I")
        s1.Cells(sat, "E") = s2.Cells(i, "AE")
        s1.Cells(sat, "F") = s2.Cells(i, "Q")
        s1.Cells(sat, "G") = s2.Cells(i, "R")
        
        s1.Cells(sat, "H") = s2.Cells(i, "X")
        s1.Cells(sat, "I") = s2.Cells(i, "Y")
        s1.Cells(sat, "J") = s2.Cells(i, "Z")
        s1.Cells(sat, "K") = s2.Cells(i, "AA")
        s1.Cells(sat, "L") = s2.Cells(i, "AD")
                    
        
        's1.Cells(sat, "G") = s2.Cells(i, "B") * s2.Cells(i, "E")
                
        
        'sat = sat + 1
    End If
    

    
Next


If son2 < 101 Then
    s1.Rows(son2 + 16 & ":116").Hidden = True
    'For j = son + 16 To 116
    '    s1.Rows(j).Hidden = True
    'Next
End If



End Sub

 

[YUSUF44]

Bu kod işinizi görmüyor mu? Görmüyorsa sorun hangi işlemde?

İlk bakışta gördüğüm :

'sat = sat + 1

satırını pasiflemişsiniz (yani en başına kesme işareti koymuşsunuz), bu nedenle o satır işlem yapmıyor ve dolayısıyla da her veriyi 17. satıra yazıyor. Sorun bu ise kesme işaretini silip deneyin.

 

[koboy]

söyle antayım excel ekledim Praforva 17 satıdan başlıyor mesaja 18 satırda yoksa o sutünler gizlenmiyor