• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Adete Göre Hücre üretme

A

Arshimet

Katılım
21 Ağustos 2008
Mesajlar
14
Excel Vers. ve Dili
Exel 2003
Merhaba.
ekteki dosyada.
serino Ürün adı Adet
1234 Rayban Niolor 15

bu şekilde bir form var. nasıl yapacam bilemiyorum; ama adet kadar başka bir alana hücre üretmesini nasıl yaptırırım.
 

Ekli dosyalar

Daha açık anlatmaya çalışın...
 
Murat OSMA' Alıntı:
Daha açık anlatmaya çalışın...
Genişletmek için tıkla ...

Merhaba.
ornek.xls dosyasında da görülüğü gibi.

2372376618287 numarada Eyes Option Nilör Gözlük Çerçevesi adlı üründen elimde 5 adet var. ama ben bunları 1,2,3,4,5, olarak başka hücrelere aynısını kopyala yapıştır yapıyorum. aşşağıda olduğu gibi. bunu makro yaparak tek tuşla nasıl otomatik hale getirebilirim...
ekte de örnek olarak attım.
şimdiden teşekkür ederim.


etiken no etiket adı adet
2372376618287 Eyes Option Nilör Gözlük Çerçevesi 1
2372376618288 Eyes Option Nilör Gözlük Çerçevesi 2
2372376618289 Eyes Option Nilör Gözlük Çerçevesi 3
2372376618290 Eyes Option Nilör Gözlük Çerçevesi 4
2372376618291 Eyes Option Nilör Gözlük Çerçevesi 5
2372376614197 Enox Faset Gözlük Çerçevesi 1
2372376614198 Enox Faset Gözlük Çerçevesi 2
2372376614199 Enox Faset Gözlük Çerçevesi 3
 

Ekli dosyalar

Şu kodları bir deneyiniz;

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .ScreenUpdating = False
            If Target.Column <> 3 Then Exit Sub
            i = Range("F65536").End(3).Row + 1
            Cells(Target.Row, 1).Resize(, 3).Copy Range("F65536").End(3)(2, 1)
            Range("F" & i & ":H" & i - 1 + Target.Value).Select
            Selection.FillDown
            ActiveCell.Offset(0, 2).Value = 1
            ActiveCell.Offset(0, 2).Select
            Selection.AutoFill Destination:=Range("H" & i & ":H" & i - 1 + Target.Value), Type:=xlFillSeries
            Columns.AutoFit
            Target.Select
        .ScreenUpdating = True
        .CutCopyMode = False
    End With
End Sub
 
Merhaba.
yardımlarınız için çok teşekkür ederim ama deniyorum. olmuyor Kopyala yapıştır yaptım olmuyor. Eğer yardımcı olursanız çok sevinirim. Şimdiden teşekkür ederim.


Murat OSMA' Alıntı:
Şu kodları bir deneyiniz;

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .ScreenUpdating = False
            If Target.Column <> 3 Then Exit Sub
            i = Range("F65536").End(3).Row + 1
            Cells(Target.Row, 1).Resize(, 3).Copy Range("F65536").End(3)(2, 1)
            Range("F" & i & ":H" & i - 1 + Target.Value).Select
            Selection.FillDown
            ActiveCell.Offset(0, 2).Value = 1
            ActiveCell.Offset(0, 2).Select
            Selection.AutoFill Destination:=Range("H" & i & ":H" & i - 1 + Target.Value), Type:=xlFillSeries
            Columns.AutoFit
            Target.Select
        .ScreenUpdating = True
        .CutCopyMode = False
    End With
End Sub
Genişletmek için tıkla ...
 
Arshimet' Alıntı:
Merhaba.
yardımlarınız için çok teşekkür ederim ama deniyorum. olmuyor Kopyala yapıştır yaptım olmuyor. Eğer yardımcı olursanız çok sevinirim. Şimdiden teşekkür ederim.
Genişletmek için tıkla ...
.

Sayn Murat Osma' nın kodları çalışıyor.

1. Kodları buradan kopyalayın

2. Dosyanızın ilgili sayfasında ALT, F11 tuşlarına birlikte basın. Geldiğiniz yerde bu kodları yapıştırın.

3. Sayfanızda sıra ile yukarıdan C2 hücresinden başlamak üzere, her hücredeki sayıya çift tıklayın.

.
 
Sn. yurttas, ilgilendiğiniz için teşekkür ederim...
 
Merhaba.
ikinizede çok teşekkür ederim. lakin cehaletime verin.
ALT+F11 yaptım bu kodları yapıştırdım.
Makro adı yazın diye bir alan açıldı. bunu nasıl halledebilirim.
Şimdiden teşekkür ederim.
Resmide Gönderdim.
Kusura bakmayın.
yurttas' Alıntı:
.

Sayn Murat Osma' nın kodları çalışıyor.

1. Kodları buradan kopyalayın

2. Dosyanızın ilgili sayfasında ALT, F11 tuşlarına birlikte basın. Geldiğiniz yerde bu kodları yapıştırın.

3. Sayfanızda sıra ile yukarıdan C2 hücresinden başlamak üzere, her hücredeki sayıya çift tıklayın.

.
Genişletmek için tıkla ...
 

Ekli dosyalar

  • durum.jpg
    durum.jpg
    92.8 KB · Görüntüleme: 8
Kodları yapıştırdıktan sonra F5'e basmış olabilir misiniz ? :dusun:

Dosyayı ekliyorum...
C sütunundaki satırlara istediğiniz sayıyı girin..
 

Ekli dosyalar

Buna Benzer Başka bir Sorum daha

Merhaba.
önce ilgi ve alakanız için gerçekten çok teşekkür ederim. minnetarım. bilginizede hayran kaldım gerçekten. şimdi benim sorum şu olacak. örnek

barkod no etiket adı seri no
--------- -------- ------
11111111 1
11111111 2
11111111 3
22222222 1
22222222 2
22222222 3
33333333 1
33333333 2
33333333 3

şimdi böyle bir şablon var elimde bir taraftada

barkod no etiket adı
1111111 rayban nilör
2222222 rayban faset
3333333 oppan asetat


ben bu iki şablon arasında nasıl bri bağlantı kurabilirim. yani. "111111" deki etiket adını alacak bir üstteki "1111111" olan yerin yanına "etiket adını" yazacak. işn içinden çıkamadım. şimdiden çok teşekkür ederim. ilgi ve alakanız için.


edit : örnek dosyaya ekledim.

Murat OSMA' Alıntı:
Kodları yapıştırdıktan sonra F5'e basmış olabilir misiniz ? :dusun:




Dosyayı ekliyorum...
C sütunundaki satırlara istediğiniz sayıyı girin..
Genişletmek için tıkla ...
 

Ekli dosyalar

Sitede DÜŞEYARA ya da VLOOKUP yazıp aratınız...
 
Düşey Ara

A ve B stunlarına elndeki ürünlerin kaydını yap D stununa bulmak istediğin barkodu yaz
 

Ekli dosyalar

ben bu makro için birşeyler sormak istiyorum elimizdeki ürünlerin sayısı 50 veya 100 olduğu zaman bu makro ile kopyalama kolay fakat 11000 olduğu zaman daha kolay bir yöntem yokmudur. kopyala düğmesi gibi
 
Sitede For Next veya For Each Next döngüsü yazarak, ya da google da excel.web.tr For Next döngüsü ya da excel.web.tr For Each Next döngüsü yazarak, ya da direkt olarak siteye ya da google'a döngüler yazarak, o konuda kendinizi geliştirebileceğiniz bağlantılara erişebilirsiniz...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst