Tag Info

New answers tagged

0

@ miroxlav: Still looking for an answer? You could try the following: in your highlighted ribbon > right-click on one of the symbols (to make sure you hit the custom toolbar) > within the context-menu choose "Delete custom menu" (wording may be slightly different, am using a German Excel here). Hope that helps! Mike


3

a b c d e f 0 0 0 1 0 0 d =INDEX($A$3:$F$3,1,MATCH(1,A4:F4,0)) 0 0 1 0 0 0 c =INDEX($A$3:$F$3,1,MATCH(1,A5:F5,0)) Trust this helps


0

Under Developer -> Visual Basic, put the following in a new module: Sub CopySelection() Dim xlSel As Excel.Range Set xlSel = Excel.Application.Selection xlSel.Copy Excel.Application.Sheets("Sheet2").Range("A1") End Sub Then, under Developer -> Macros, select the sub, click Options, and assign a key.


0

Sub ExtractBySlash() Dim r As Range Dim subS As Variant Dim x As Long Dim y As Long Dim counter As Long counter = 1 For Each r In Range("a1:a506") subS = Split(r.Text, "\") For x = LBound(subS) + 1 To UBound(subS) For y = Len(subS(x)) To 1 Step -1 If Mid(subS(x), y, 1) = " " Then r.Offset(0, counter) = subS(x - 1) & ...


1

This does what your questions requests. Sub ShowStartingPoints() Dim rowA As Integer rowA = 1 Do While (Range("A" & rowA).Value <> "") Dim row As Integer row = 1 Dim doesValueExitInB As Boolean doesValueExitInB = False Dim valueA As String valueA = Range("A" & rowA).Value Do While (Range("B" & row).Value <> "") If (valueA ...


-1

Consider the following macro...............it does not require any initial data in column A Sub fixA() Dim N As Long, i As Long Range("A:A").Clear [A1] = [b1] v = [b1] N = Cells(Rows.Count, "B").End(xlUp).Row For i = 2 To N If Cells(i, "B") = Cells(i - 1, "B") Then Cells(i, "A") = "" Else ...


1

This should do it, although I have used different logic to your requirement. You wanted to find a \ before white space, where as my code simply looks for Domain (note the white space). Option Explicit Sub DoThis() Dim col As Integer col = 65 Dim splitWord As String splitWord = "Domain" Dim row As Integer row = 1 Do While (Range("A" & row).value ...


1

In the VBA macro you could use the File System Object to read and write to a file. An example of using this object from MSDN: Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:\testfile.txt", True) a.WriteLine("This is a test.") a.Close You could use FSO to insure that the file is there, create it or open it, write to it, ...


1

If your code works depends on the receiving application. The help says for {ASC nnnnn}: [...] Unicode characters may be generated by specifying a number between 256 and 65535 (without a leading zero). However, this is not supported by all applications. For alternatives, see the section below. Relevant section from remarks: Unicode ...


0

Found a way using: Open mailbody For Input As #1 and then Line Input #1 Sub Mail_LSP(mailsubject As String, consignee As String, coalcopy As String, mailbody As String) Dim mlook As Outlook.MailItem Dim linecontent As String Dim mailcontent As String Open mailbody For Input As #1 Do Until EOF(1) Line Input #1, linecontent mailcontent = ...


0

Try FileSystemObject : Private Sub CommandButton1_Click() Set fso = CreateObject("Scripting.FileSystemObject") Path = Range("E3") Set filestream = fso.OpenTextFile(Path, 1) contents = filestream.ReadAll() Range("F4") = contents End Sub


0

I assume what you want is to make the replacement once only, and stop further rules once a replacement is made. Taking your second sheet as an example, line 12 "but" should be translated to "however", and stop further rules so that "however" does not translate to "hoyouever" (as rule #17 translates "we" to "you"). A workaround is to first translate ...


0

Assuming the data is in column A of Sheet1, the following will do the trick: Rem Attribute VBA_ModuleType=VBAModule Option VBASupport 1 Option Explicit Sub rearrange() Dim elements As Integer, rowIndex As Integer, i As Integer Dim Name As String ' LO Basic additions Dim Doc As Object Dim Sheet As Object dim cell as object Doc = ...


1

Auto Hotkey script as a toggle using the scroll-lock key. take out items by disabling them (such as hdmi on your lcd's etc) I prefer this as I only need to change my sound output if it is set to the incorrect selection. Hitting scroll-lock switches me to the correct one. Very useful if i am already loading a game and realize it is wrong. Most games need to ...


0

This will, obviously, take some VBA to pull off. I see a potential problem with your logic, but the VBA will do exactly as you requested. I'll talk about the problem at the end. Open your VBE with Ctrl+F11 and create a new Module for your workbook. In that module add: Sub hideColumns() Dim ws as Worksheet Set ws = Sheets("YOUR SHEET NAME") ...


2

First of all, things will be a lot easier if you use the standard cell addresses! Generally cells are referred to by their "A1" -addresses, but in VBA (Visual Basic for Applications) they can also be referred to by using [Row, Column] coordinates. For example Cell(1, 2) would be "B1". You can calculate the value with either Formulas or with custom VBA ...



Top 50 recent answers are included