[VBA] Excel sayfasında döngü ile diğer çalışma sayfasına veri aktarma

husem · 02-07-2015, 21:29

öncelikle herkese merhaba
hayırlı ramazanlar,
Excel ile ilgili bir döngü problemim var yardımcı olabilecek arkadaşlardan yardım talep ediyorum.

Excel çalışma sayfasında Reaktif Boyama isminde çalışma sayfası var.
bu çalışma sayfasında TÜKETİMLERİ AKTAR butonuna tıkladığımda E sütununda 11.satırdan başlayarak 82.satıra kadar tarayacak
eğer kimyasal madde adı varsa bulduğu kimyasal madde adını ve karşısındaki H sütunundaki kullanılan kimyasal madde miktarını PARTİ NUMARASIYLA BİRLİKTE TÜKETİMLER sayfasına aktaracak.

parti numarası K2 hücresinde
ilgilenen herkese teşekkürler

herkese iyi çalışmalar,
hayırlı ramazanlar dilerim
kolay gelsin

Orion · 02-07-2015, 23:13

K2 deki parti noyu hangi sütunda arayacak.Yani parti nolar hangi sütunda listeleniyor?

husem · 03-07-2015, 00:49

parti numarası zaten sabit. K2 de hep aynı
parti numarasını k2 den alacak. aramayacak.

benim istediğim K2 den parti numarasını alıp bu sayfadaki aktif kimyasal maddeyi ve bu kimyasalım miktarını alması.
tüketim sayfasına örnek olması gerekeni de yazdım.

kimyasal maddenin olduğu sütunda formüllerde düzenleme yaptım. eğer kimyasal yoksa zaten "" boşluk yaptırdım. sadece kimyasalı bulması ve bulduğunda da karşısındaki kimyasal ile birlikte tüketim sayfasına aktarması gerekiyor.

Orion · **Kayıt Tarihi:** 09.10.2009

Dosyanız ektedir. Cool

Visual Basic
Sub aktar59()
Dim sat As Long, i As Long, sonsat As Long
Dim sh As Worksheet
Sheets("Reaktif Boyama").Select
Set sh = Sheets("TÜKETİMLER")
sonsat = 82
sat = sh.Cells(Rows.Count, "B").End(xlUp).Row + 1
Application.ScreenUpdating = False
For i = 11 To sonsat
    If Cells(i, "E").Value <> "" Then
        sh.Cells(sat, "A").Value = Cells(2, "K").Value
        sh.Cells(sat, "B").Value = Cells(i, "E").Value
        sh.Cells(sat, "C").Value = Cells(i, "H").Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
sh.Select
MsgBox "İşlem tamamlandı." & vbCrLf & "evrengizlen@hotmail.com"
End Sub

husem · 03-07-2015, 01:58

sn orion,
ilginizden dolayı çok teşekkür ederim.
tam da istediğimgibi.
ancak aşağıdaki gibi bir düzeltme yapabilirmisiniz?

tüketimleri aktar butonuna her tıklayışımda TÜKETİMLER sayfasındaki verileri silmeden alt alta kayıt yapsa.

Orion · 03-07-2015, 19:31

(03-07-2015, 01:58)husem demiş ki: sn orion,
ilginizden dolayı çok teşekkür ederim.
tam da istediğimgibi.
ancak aşağıdaki gibi bir düzeltme yapabilirmisiniz?

tüketimleri aktar butonuna her tıklayışımda TÜKETİMLER sayfasındaki verileri silmeden alt alta kayıt yapsa.

dosyayı güncelledim.
4 nolu mesajdan indirebilirsiniz. Cool

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Açılır Menüdeki Veriyi Metin Kutusuna Aktarma	Pasham	1	224	19-02-2026, 21:18 Son Mesaj: adnan
	[FORM] Tarayıcıdan Evrak Tarayarak Ilgili Tabloya Aktarma	kertiller_55	1	347	03-10-2025, 15:32 Son Mesaj: dsezgin
	[FORM] Form Açıkken Diğer Formda Işlem Yapabilmek	caytug	6	541	02-10-2024, 10:12 Son Mesaj: caytug
	[RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma	MHMTKY	2	415	11-09-2024, 13:09 Son Mesaj: dsezgin
	Excele Aktarma	evren89	1	360	09-08-2024, 20:50 Son Mesaj: dsezgin
	Excel'e Biçimli Aktarma	evren89	3	509	01-07-2024, 22:56 Son Mesaj: evren89
	Işaretli Olanları Aktarma	evren89	2	370	10-06-2024, 15:29 Son Mesaj: evren89
	[RAPOR] Formdan Rapora Resim Aktarma	Pasham	7	698	02-06-2024, 00:41 Son Mesaj: Pasham

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL