• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

vba ile sabit satır ekleme yardım

K

koboy

Katılım
1 Ağustos 2006
Mesajlar
179
Merhabalar excel dosyasında bilgileri yazdım alt kısım sabit kalacak sayfa1den praforma sayfasına verileri eklemek istiyorum
 

Ekli dosyalar

Ekli dosyayı inceleyiniz:
 

Ekli dosyalar

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
 

Ekli dosyalar

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.
 
100 yaparız mesela, ya da 500 ?
 
hocam bu şekilde olur tek birşey isteyebilir miyim bu toplam kısımları formüş yerine makro ile nasıl yaparım
 
hocam satırları sildim mi komple alt kısım birbirne giriyor bunu başka yöntemi var mı acaba
 
Teker teker ilerleyelim.

Satır sayısının arttırılmasını istiyor musunuz?
 
YUSUF44' Alıntı:
Teker teker ilerleyelim.

Satır sayısının arttırılmasını istiyor musunuz?
Genişletmek için tıkla ...

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
 
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.
 
#2 nolu mesajdaki dosyayı değiştirdim, inceleyiniz.
 
YUSUF44' Alıntı:
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.
Genişletmek için tıkla ...


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
 
Ö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.
 
Merhaba.

Buyrun, sorun. Ben olamasam da başkaları yardımcı olacaktır diye düşünüyorum.
 
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




Kod: 
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
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst