yalnızca bakiyesi olan alışların başka çalışma sayfasına aktarımı

[general_o]

arkadaşlar ekte dosyada belirtiğim işlemi nasıl yapabilirim yardım edermisiniz.

 

[Emir Hüseyin Çoban]

. . .

A- Sıra numarasını 1 den yeniden mi verecek ?
B- Veri alınacak sayfadaki sıra numarasını mı getirecek ?

A için

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("98 PARSEL - YÜKLENİLEN KDV")
Set S2 = Sheets("Sayfa1")
S2.Range("A3:N65536").ClearContents

sat = 3
s1son = S1.[k65536].End(3).Row

For i = 4 To s1son

If S1.Cells(i, "K") > 0 Then
S2.Cells(sat, "A") = sat - 2
S2.Cells(sat, "B") = S1.Cells(i, "B")
S2.Cells(sat, "c") = S1.Cells(i, "C")
S2.Cells(sat, "D") = S1.Cells(i, "D")
S2.Cells(sat, "E") = S1.Cells(i, "E")
S2.Cells(sat, "F") = S1.Cells(i, "F")
S2.Cells(sat, "G") = S1.Cells(i, "G")
S2.Cells(sat, "H") = S1.Cells(i, "H")
sat = sat + 1
Else: End If
Next i

Set S1 = Nothing
Set S2 = Nothing
i = Empty
sat = Empty
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

B için

S2.Cells(sat, "A") = [COLOR="Red"]sat - 2[/COLOR]

satırını aşağıdaki şekilde değiştirin

S2.Cells(sat, "A") = [COLOR="Red"]S1.Cells(i, "A")[/COLOR]

. . .

 

[general_o]

hocam A ve B değil,
K sütununda bakiyesi olan inşaat malzemelerinin a-b-c-d-e-f-g sütünlarını sayfa 1 çalışma sayfasına listeleyeceğiz

 

[Emir Hüseyin Çoban]

. . .

Kodları denediniz mi ?

. . .

 

[general_o]

hocam;
kodları bu şekilde hiç kullanmadım onun için nasıl yapıldığını bilmiyorum..

 

[Emir Hüseyin Çoban]

. . .

Tahmin ettiğim gibi.
Eki inceleyiniz.

Forumda modül ekleme, butona makro atama konularını araştırınız.


. . .

 

[general_o]

hocam
harikasın teşekkür ederim. ancak yüklenen kdv sayfasında H sütunundaki bakiyeler de değişme olduğunda listelemeye bastığım zaman herhangi bir değiklik yapmıyor
ve
nasıl yaptığın konusunda bilgi vermen mümkün mü çünkü aynı durumla yeniden karşılaştığımda sizi tekrar tekrar rahatsız ve meşkul etmeyeyim.