Skip to main content

AccessTr.neT


excelde verileri biçimi ile çekmek

excelde verileri biçimi ile çekmek

Çözüldü #1

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Not Intersect(Target, [Sacstok!ac4:ac65536]) Is Nothing Then
Set Aralik = Range("f2:f" & [d65536].End(2).Row)
Set Bul = Aralik.Find(Target.Row, lookat:=xlWhole, LookIn:=xlValues)
If Not Bul Is Nothing Then
Adres = Bul.Address
Do
Target.Copy Cells(Bul.Row, Bul.Column - 2)
Set Bul = Aralik.FindNext(Bul)
Loop While Not Bul Is Nothing And Bul.Address <> Adres
End If
ElseIf Not Intersect(Target, [f2:f65536]) Is Nothing Then
Range("ac" & Target).Copy Target.Offset(0, -2)
End If
son:
End Sub


yazdığım kod satırında nasıl bir hata var acaba?
sacstok isimli sayfada ac4 hücresinde yazılı olan veriyi siparisbilgileri sayfasında d2 hücresine biçimi ile aktarmaya çalışıyorum.

not: ac4'ten başlayıp ac65536 ve d2'den başlayıp d65536' ya kadar olacak hücrelere
Cevapla
Çözüldü #2
Örnek ekleye bilirmisiniz.
Cevapla
Çözüldü #3
dosyayı küçülterek gönderiyorum. sacstok sayfasındaki sipariş miktarları sipariş bilgileri sayfasına biçimleriyle gelsin istiyorum. söylediğim gibi tablo anlamsız gelmesin çünkü verilerin çoğunu sildim kafa karıştırmasın diye. bunu gibi 12 ayın sipariş miktarını çekmem gerekiyor.
.rar sac stok.rar (Dosya Boyutu: 27,73 KB | İndirme Sayısı: 15)
Son Düzenleme: 17/05/2011, 13:14, Düzenleyen: leydies81.
Cevapla
Çözüldü #4
dosyayı eklerken sorun oldu sanırım bir önceki mesajımda tekrar ekleme yaptım rar olarak
Cevapla
Çözüldü #5
yardım etmicek mi kimse
Cevapla
Çözüldü #6
lütfen hatayı nerede yapıyorum birisi ilgilensin Img-cray
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task