Son İletiler

Sayfa: 1 ... 7 8 [9] 10

Microsoft Excel, Vba, Makro, Formül vb. Soruları / düşey arasın sonra toplama işlemi yapsın

« Son İleti Gönderen: emorid 23 Kasım 2021, 23:30:27 »

merhaba arkadaşlar

sayfa 1de yazsığım ismi sayfa 4te bulsun, sayfa 4te bulduğu ismin yanında yazan "a","ö","s" değerlerinin kaç tane olduğunu yazsın istiyorum.

sayfa 1de satır ve sütünlar ayarlandı

örnek olarak sayfa1

ahmet yazdım diyelim a hücre altına 3, s yazan hücre altına 1, ö yazan hücre altına 1 gibi

sayfa 4teki tabloda olanlar

ahmet a a a s ö
mehmet ö a a ö ö
ali a ö ö ö s
metin s s s a ö
iskender ö s a a s

çoke topla, eğertopla gibi formüller denedim ama istediğim sonucu alamadım

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: anket yüzde hesaplama

« Son İleti Gönderen: emorid 20 Kasım 2021, 01:15:57 »

teşekkür ederim ben yanlış yoldan ilerliyormuşum öğrenmiş oldum.

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: anket yüzde hesaplama

« Son İleti Gönderen: Bülent Öztürk 19 Kasım 2021, 20:50:26 »

Merhaba,

Ekteki gibi yapabilirsiniz.

Microsoft Excel, Vba, Makro, Formül vb. Soruları / anket yüzde hesaplama

« Son İleti Gönderen: emorid 19 Kasım 2021, 00:59:29 »

arkadaşlar merhaba

bir çalışan anketi uygulamak istiyorum ancak cevapların yüzdelik hesaplamalarını yapamadım.
sonuç sayfasında boşta bulunan yerlere yüzdeleri formül ile hesaplayabilirmiyiz?

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Çoklu Yatay Tabloyu Dikey Hale Dönüştürme

« Son İleti Gönderen: farisaga 13 Kasım 2021, 09:19:08 »

Alıntı yapılan: farisaga - 12 Kasım 2021, 15:02:42

Herkese selamlar.
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.

Orjinal hali :
Kod: [Seç]
A SÜTUNU ------------------------ 13:27 Online Price: 0,014 USD Price incr.: 0,012 USD 14:56 Online Price: 0,15 USD Price incr.: 0,12 USD 19:41 Offline Price: 1,49 USD Price incr.: 1,1 USD 20:01 Online Price: 0,01 USD Price incr.: 0,004 USD
Olması gereken hali :
Kod: [Seç]
A SÜTUNU | B SÜTUNU | C SÜTUNU | D SÜTUNU --------------------------------------------------------------- 13:27 | Online | Price: 0,014 USD | Price incr.: 0,012 USD 14:56 | Online | Price: 0,15 USD | Price incr.: 0,12 USD 19:41 | Online | Price: 1,49 USD | Price incr.: 1,1 USD 20:01 | Online | Price: 0,01 USD | Price incr.: 0,004 USD

Sorun aşağıdaki kod yardımı ile çözülmüştür.

Kod: [Seç]

Sub transpose()
Set oku = Sheets("sayfa1")
Set yaz = Sheets("sayfa2")
yaz.Range("A2:D20000").ClearContents
ss = oku.Range("A" & Rows.Count).End(xlUp).Row
y = Range("A1:A" & ss)
sat = 2: süt = 1
For i = 1 To UBound(y)
If süt = 5 Then süt = 1: sat = sat + 1
yaz.Cells(sat, süt) = y(i, 1)
süt = süt + 1
Next i
End Sub

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Çoklu Yatay Tabloyu Dikey Hale Dönüştürme

« Son İleti Gönderen: farisaga 12 Kasım 2021, 15:02:42 »

Herkese selamlar.
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.

Orjinal hali :

Kod: [Seç]

A SÜTUNU
------------------------
13:27
Online
Price: 0,014 USD
Price incr.: 0,012 USD
14:56
Online
Price: 0,15 USD
Price incr.: 0,12 USD
19:41
Offline
Price: 1,49 USD
Price incr.: 1,1 USD
20:01
Online
Price: 0,01 USD
Price incr.: 0,004 USD

Olması gereken hali :

Kod: [Seç]

A SÜTUNU | B SÜTUNU | C SÜTUNU         | D SÜTUNU
---------------------------------------------------------------
13:27    | Online   | Price: 0,014 USD | Price incr.: 0,012 USD
14:56    | Online   | Price: 0,15 USD  | Price incr.: 0,12 USD
19:41    | Online   | Price: 1,49 USD  | Price incr.: 1,1 USD
20:01    | Online   | Price: 0,01 USD  | Price incr.: 0,004 USD

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Excelde aynı satır farklı sütundaki değerlerin üstte satır eklenerek taşınması

« Son İleti Gönderen: lfkaya 27 Ekim 2021, 20:19:00 »

Arkadaşlar ekteki excel dosyasında 2 sayfa yer almaktadır 1 nci sayfa orjinal sayfa 2 nci sayfa orjinal sayfasındaki değerlerin düzenlenmiş şekli burada Kdv ve Toplam sütunundaki değerleri 2 satır ekleyerek satırın birine kdv yi diğerine toplamı taşımak istiyorum bunu makro ile nasıl yapabilirim

https://dosyam.org/Zdv/FATURA.xls

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Belirli aralıktaki hücrelere sırasıyla sayı yazdırmak

« Son İleti Gönderen: Erkan GEGEZ 17 Ekim 2021, 15:27:57 »

İyi günler dilerim,
B3 hücresi ile H8 hücreleri arasında bir uygulama yapmak istiyorum.
Ve bütün bunları kod sayfasına yazarak yapmak istiyorum.Çünki bu tabloyu
tekrar tekrar kulanacağımdan dolayı içindeki verileri silip başka veriler
girmek durumunda olacağım.Kod yazılmazsa buraya yazılan formüller silinecektir.
B3 hücresine 1 rakamını yazdığımda otomatik olarak c3'e 2 , d3'e 3 ,e3'e 4 , f3'e 5
g3'e 6 . h3'e 7 yazsın. Veb8 den devam ederk h8'e kadar sırayla yamaya devam etsin.

Diyelim ki ben 1 rakamını d3'e yazdım .O zaman d3'den h8 e kadar sırayla yazsın. Bu arada
ben 1 rakamını en son h3'e yazabilirim.

Microsoft Excel, Vba, Makro, Formül vb. Soruları / SAYFALARDAN MAKRO İLE KOŞULLU OLARAK DÖKÜM ALMAK

« Son İleti Gönderen: ayyıldız05 01 Ekim 2021, 19:45:56 »

Arkadaşlar selamlar.Ekteki dosyada 1-8-9-MTS olarak 4 sayfam var. A44-AG147 aralığındaki 26 bölümlük veri girişlerinden 1.güne ait ilk 3 veri girişini örnek olarak doldurdum.Bunu ay boyunca gün gün her ekip için işlemekteyim. İstediğim madde ve araç cinsini eşleştirerek döküm sayfasına 4 ekibinkini toplam olarak ilgili haneye atsın. Yanı 13. madde otomobil ise Döküm sayfasına 13 ve otomobil sütununun kesiştiği hücreye atsın, eğer 14 madde Otobüs seçilmişse döküm sayfasında ilgili hücreye toplam atsın. Bu arada eski sayfamda bunu yapabiliyordum bunu da örnek olarak AJ2-AU74 aralığında gösterdim. Bunu aşağıdaki kod ile alabiliyordum. Yani veri girişi çizelgem önceden AJ2-AU74 aralığında gösterdiğim çizelge gibiydi.Ama çizelgeyi değiştirdiğimden a44-ag147 aralığındaki 26 bölümlük girişten nasıl alabilirim. Yardımcı olabilirseniz sevinirim.

Önceki çizelgemdeki 31 günlük sayfadan aldığımda kod;

Sub icmal()

Set sT = Sheets("DÖKÜM")
Dim w(1 To 232, 1 To 11)
sayfalar = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For i = 5 To 232
.Add Trim(sT.Cells(i, 1).Value), i - 4
Next i

For i = 0 To 30
Set sv = Sheets(sayfalar(i))
For ii = 46 To 75
key = Trim(sv.Cells(ii, 5).Value)
If key <> "" Then
If .Exists(key) Then
sat = .Item(key)
Select Case sv.Cells(ii,

.Value
Case "MOTOSİKLET": sut = 1
Case "MOTORLUBİSİKLET": sut = 2
Case "OTOMOBİL": sut = 3
Case "MİNİBÜS": sut = 4
Case "KAMYONET": sut = 5
Case "KAMYON": sut = 6
Case "OTOBÜS": sut = 7
Case "TRAKTÖR": sut = 8
Case "ÇEKİCİ": sut = 9
Case "TANKER": sut = 10
Case Else: sut = 11
End Select
Else
MsgBox "Hatalı Madde Kodu... "
sv.Cells(ii, 1).Select
Exit Sub
End If
w(sat, sut) = w(sat, sut) + 1
End If
Next ii
Next i
sT.Range("B5:L232").Value = w
End With
End Sub

Private Sub CommandButton1_Click()
Sayfa32.PrintPreview
End Sub

Private Sub Worksheet_Activate()
Call icmal
End Sub

Microsoft Excel, Vba, Makro, Formül vb. Soruları / excell sayfa numaraları menüsü

« Son İleti Gönderen: ayyıldız05 08 Eylül 2021, 21:33:34 »

Arkadaşlar selamlar. Ekte gönderdiğim excel kitabında sayfa numaralarını şerit halinde değilde ekteki gibi 3 satır halinde üst üste yapabiliyormuyuz

Sayfa: 1 ... 7 8 [9] 10