Vba Yardım

**#1)** **VlKn0808** » 18 May 2023 21:18

Arkadaşlar Merhaba

üzerinde calıstıgım bir projede desteğinize ihtiyacım var sorum şu;

Fatura_No = Worksheets("DATA").Cells(i, 5)

Departman_Kodu =Worksheets("DATA").Cells(i, 29)

Fatura Satırları = Worksheets("DATA").Cells(i, 14)

Sonuc = Worksheets("RESULT").Cells(i, 1)

yapmak istediğim fatura no alanında aynı numaranın karsılıgı olarak satırlar mevcut bu satırların hepsi departman koduna gore farklılık gostermektedır.

departman kodu eğer "konya" ise sonuc sayfasına fatura numarasını tek yazarak karsılıgına sadece konya ıbaresıne denk gelen tutarı yazdırması.

yardımlarınız ıcın sımdıden cok tesekkurler.

**#2)** **VlKn0808** » 20 May 2023 19:43

Arkadaslar yardımcı olacak bırısı varmı bye

**#3)** **CouseN** » 23 May 2023 17:13

Sub FaturaTutariniKopyala()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim kodRng As Range
Dim faturaRng As Range
Dim kodCell As Range
Dim faturaCell As Range
Dim kod As String

Set ws1 = ThisWorkbook.Sheets("Sayfa1")
Set kodRng = ws1.Range("A1:A10")

Set ws2 = ThisWorkbook.Sheets("Sayfa2")
Set faturaRng = ws2.Range("B1:B10")

For Each kodCell In kodRng
kod = kodCell.Value
If kod = "Konya" Then

Set faturaCell = faturaRng.Cells(kodCell.Row, 1)
faturaCell.Value = ws1.Cells(kodCell.Row, 2).Value
End If
Next kodCell
End Sub