[Yardım]  Aktarma hakkında

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Aktarma hakkında

İleti#1)  osmanucel » 01 Eyl 2020 20:13

Private Sub BRMALIS1()
On Error Resume Next
yenis = 3
xenis = 3
idno = Worksheets("ALIŞ").Cells(3, 1)
For i = 3 To Worksheets("ALIŞ").Range("A65536").End(xlUp).Row + 1
If Worksheets("ALIŞ").Cells(i, 1) <> idno Then
toplamtl = WorksheetFunction.Sum(Range(Sheets("ALIŞ").Cells(xenis, 12), Sheets("ALIŞ").Cells(i - 1, 12)))
Worksheets("İRSA").Cells(yenis, 2) = Worksheets("ALIŞ").Cells(i - 1, 1)
Worksheets("İRSA").Cells(yenis, 3) = Worksheets("ALIŞ").Cells(i - 1, 2)
Worksheets("İRSA").Cells(yenis, 4) = Worksheets("ALIŞ").Cells(i - 1, 3)
Worksheets("İRSA").Cells(yenis, 5) = Worksheets("ALIŞ").Cells(i - 1, 4)
Worksheets("İRSA").Cells(yenis, 6) = Worksheets("ALIŞ").Cells(i - 1, 5)
Worksheets("İRSA").Cells(yenis, 7) = Worksheets("ALIŞ").Cells(i - 1, 6)
Worksheets("İRSA").Cells(yenis, 1) = Worksheets("ALIŞ").Cells(i - 1, 13)
Worksheets("İRSA").Cells(yenis, 10) = toplamtl
Worksheets("İRSA").Cells(yenis, 8) = (toplamtl / 1.18)
Worksheets("İRSA").Cells(yenis, 9) = toplamtl - (toplamtl / 1.18)
Worksheets("İRSA").Cells(yenis, 11) = Worksheets("ALIŞ").Cells(i - 1, 14)
Worksheets("İRSA").Cells(yenis, 12) = Worksheets("ALIŞ").Cells(i - 1, 15)
yenis = yenis + 1
idno = Worksheets("ALIŞ").Cells(i, 1)
xenis = i
toplamtl = 0
Else
End If

Next i
End Sub


Bu kodlarla ALIŞ sayfasından IRSA sayfasına aktarma yapıyorum , fakat benim istediğim ALIŞ sayfasının D sütununda A ise aktarsın. Denemeler yaptım ama başasamadım .Yardımcı olurmusunuz.?
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Aktarma hakkında

İleti#2)  Ali ÖZ » 02 Eyl 2020 10:05

Kod: Tümünü seç
For i = 3 To Worksheets("ALIŞ").Range("A65536").End(xlUp).Row + 1
if sheets("ALIŞ").range("d" & i).value = "A" then
  'kodlarınız
end if
next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10221
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Aktarma hakkında

İleti#3)  osmanucel » 02 Eyl 2020 21:16

Ali bey olmadı .Örnek dosya ekledim bakabilirmsiniz acaba ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Aktarma hakkında

İleti#4)  Ali ÖZ » 03 Eyl 2020 15:56

Sizin aktarım kodlarınızda hata var.
"Worksheets("İRSA").Cells(yenis, 2) = Worksheets("ALIŞ").Cells(i - 1, 1)" satırlarında i değerinin bir önceki satırını kayıt ettiriyorsunuz.

Bu şekilde deneyin.

Kod: Tümünü seç
On Error Resume Next
    yenis = 3
    xenis = 3
    idno = Worksheets("ALIŞ").Cells(3, 1)
    For i = 3 To Worksheets("ALIŞ").Range("A65536").End(xlUp).Row
    If Sheets("ALIŞ").Range("d" & i).Value = "A" Then
        If Worksheets("ALIŞ").Cells(i, 1) <> idno Then
            toplamtl = WorksheetFunction.Sum(Range(Sheets("ALIŞ").Cells(xenis, 12), Sheets("ALIŞ").Cells(i - 1, 12)))
            Worksheets("İRSA").Cells(yenis, 2) = Worksheets("ALIŞ").Cells(i, 1)
            Worksheets("İRSA").Cells(yenis, 3) = Worksheets("ALIŞ").Cells(i, 2)
            Worksheets("İRSA").Cells(yenis, 4) = Worksheets("ALIŞ").Cells(i, 3)
            Worksheets("İRSA").Cells(yenis, 5) = Worksheets("ALIŞ").Cells(i, 4)
            Worksheets("İRSA").Cells(yenis, 6) = Worksheets("ALIŞ").Cells(i, 5)
            Worksheets("İRSA").Cells(yenis, 7) = Worksheets("ALIŞ").Cells(i, 6)
            Worksheets("İRSA").Cells(yenis, 1) = Worksheets("ALIŞ").Cells(i, 13)
            Worksheets("İRSA").Cells(yenis, 10) = toplamtl
            Worksheets("İRSA").Cells(yenis, 8) = (toplamtl / 1.18)
            Worksheets("İRSA").Cells(yenis, 9) = toplamtl - (toplamtl / 1.18)
            Worksheets("İRSA").Cells(yenis, 11) = Worksheets("ALIŞ").Cells(i, 14)
            Worksheets("İRSA").Cells(yenis, 12) = Worksheets("ALIŞ").Cells(i, 15)
            yenis = yenis + 1
            idno = Worksheets("ALIŞ").Cells(i, 1)
            xenis = i
            toplamtl = 0
        Else
        End If
        End If
    Next i
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10221
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Aktarma hakkında

İleti#5)  osmanucel » 03 Eyl 2020 17:47

Ali bey çok teşekkür ederim oldu sağolun.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Aktarma hakkında

İleti#6)  osmanucel » 03 Eyl 2020 18:22

Ali bey yeni farkettim de A ları aktarıyor ama B olanları da topluyor .
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Aktarma hakkında

İleti#7)  osmanucel » 03 Eyl 2020 19:14

Private Sub BRMALIS1()
On Error Resume Next
yenis = 3
xenis = 3
idno = Worksheets("ALIŞ").Cells(3, 1)

For i = 3 To Worksheets("ALIŞ").Range("A65536").End(xlUp).Row + 1
If Sheets("ALIŞ").Range("d" & i).Value = "A" Then
If Worksheets("ALIŞ").Cells(i, 1) <> idno Then
toplamtl = WorksheetFunction.Sum(Range(Sheets("ALIŞ").Cells(xenis, 12), Sheets("ALIŞ").Cells(i - 1, 12)))
Worksheets("İRSA").Cells(yenis, 2) = Worksheets("ALIŞ").Cells(i, 1)
Worksheets("İRSA").Cells(yenis, 3) = Worksheets("ALIŞ").Cells(i, 2)
Worksheets("İRSA").Cells(yenis, 4) = Worksheets("ALIŞ").Cells(i, 3)
Worksheets("İRSA").Cells(yenis, 5) = Worksheets("ALIŞ").Cells(i, 4)
Worksheets("İRSA").Cells(yenis, 6) = Worksheets("ALIŞ").Cells(i, 5)
Worksheets("İRSA").Cells(yenis, 7) = Worksheets("ALIŞ").Cells(i, 6)
Worksheets("İRSA").Cells(yenis, 1) = Worksheets("ALIŞ").Cells(i, 13)
Worksheets("İRSA").Cells(yenis, 10) = toplamtl
Worksheets("İRSA").Cells(yenis, 8) = (toplamtl / 1.18)
Worksheets("İRSA").Cells(yenis, 9) = toplamtl - (toplamtl / 1.18)
Worksheets("İRSA").Cells(yenis, 11) = Worksheets("ALIŞ").Cells(i, 14)
Worksheets("İRSA").Cells(yenis, 12) = Worksheets("ALIŞ").Cells(i, 15)
yenis = yenis + 1
idno = Worksheets("ALIŞ").Cells(i, 1)
xenis = i
toplamtl = 0
Else
End If
End If
Next i

End Sub


Merhaba Hocam.

Yukarıdaki Kodlamada "xenis" değerini kontrol ederken A-B farkını belirtemedim

toplamtl = WorksheetFunction.Sum(Range(Sheets("ALIŞ").Cells(xenis, 12), Sheets("ALIŞ").Cells(i - 1, 12)))

bu kısımda xenis ile belirli bir aralıktaki değerleri toplamaya çalışıyorum..
Fakat "B" kısmını göstermek istemediğimde O aralığı doğru veremediğim için A-B karışık toplamış oluyor ve Toplam Hatalı çıkıyor...

Bu aralığı doğru vermem için yardımcı olabilir misiniz.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Aktarma hakkında

İleti#8)  Ali ÖZ » 04 Eyl 2020 08:04

Dener misiniz.

Kod: Tümünü seç
Private Sub BRMALIS1()
On Error Resume Next
yenis = 3
idno = Worksheets("ALIŞ").Cells(3, 1)
For i = 3 To Worksheets("ALIŞ").Range("A65536").End(xlUp).Row
If Sheets("ALIŞ").Range("d" & i).Value = "A" Then
If Worksheets("ALIŞ").Cells(i, 1) <> idno Then
toplamtl = toplamtl + Sheets("ALIŞ").Cells(i, 12).Value
Worksheets("İRSA").Cells(yenis, 2) = Worksheets("ALIŞ").Cells(i, 1)
Worksheets("İRSA").Cells(yenis, 3) = Worksheets("ALIŞ").Cells(i, 2)
Worksheets("İRSA").Cells(yenis, 4) = Worksheets("ALIŞ").Cells(i, 3)
Worksheets("İRSA").Cells(yenis, 5) = Worksheets("ALIŞ").Cells(i, 4)
Worksheets("İRSA").Cells(yenis, 6) = Worksheets("ALIŞ").Cells(i, 5)
Worksheets("İRSA").Cells(yenis, 7) = Worksheets("ALIŞ").Cells(i, 6)
Worksheets("İRSA").Cells(yenis, 1) = Worksheets("ALIŞ").Cells(i, 13)
Worksheets("İRSA").Cells(yenis, 10) = toplamtl
Worksheets("İRSA").Cells(yenis, 8) = (toplamtl / 1.18)
Worksheets("İRSA").Cells(yenis, 9) = toplamtl - (toplamtl / 1.18)
Worksheets("İRSA").Cells(yenis, 11) = Worksheets("ALIŞ").Cells(i, 14)
Worksheets("İRSA").Cells(yenis, 12) = Worksheets("ALIŞ").Cells(i, 15)
yenis = yenis + 1
idno = Worksheets("ALIŞ").Cells(i, 1)
xenis = i
toplamtl = 0
Else
End If
End If
Next i
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10221
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Aktarma hakkında

İleti#9)  osmanucel » 04 Eyl 2020 18:57

Hocam kodlar ilk satırı alıp aktarıyor su an.
yenı br ornekte sarı bölge yapıp acıklama yazdım hocam.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Aktarma hakkında

İleti#10)  osmanucel » 06 Eyl 2020 18:07

Konu hakında fikri olan varmı acaba?
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Aktarma hakkında

İleti#11)  osmanucel » 10 Eyl 2020 18:01

Bir el atsanız.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Aktarma hakkında

İleti#12)  osmanucel » 14 Ekm 2020 20:02

Bana yardımcı olsanız yapamadım bir türlü.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 204
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe