+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: excelde verileri biçimi ile çekmek (/konu-excelde-verileri-bicimi-ile-cekmek.html)
excelde verileri biçimi ile çekmek - leydies81 - 17/05/2011
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
Cvp: excelde verileri biçimi ile çekmek - DUAYEN - 17/05/2011
Örnek ekleye bilirmisiniz.
Cvp: excelde verileri biçimi ile çekmek - leydies81 - 17/05/2011
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.
Cvp: excelde verileri biçimi ile çekmek - leydies81 - 17/05/2011
dosyayı eklerken sorun oldu sanırım bir önceki mesajımda tekrar ekleme yaptım rar olarak
Cvp: excelde verileri biçimi ile çekmek - leydies81 - 17/05/2011
yardım etmicek mi kimse
Cvp: excelde verileri biçimi ile çekmek - leydies81 - 17/05/2011
lütfen hatayı nerede yapıyorum birisi ilgilensin
